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‘33 34 DECLARATIONS 
(3) 1 BASSMAT_INIT = Initialize a matrix 
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ASSMAT_INIT 15-SEP-1984 23:44:09 YAX/VMS Macro v04-00 Pa 1 
beat gasepa1986 10:39:98 BASRTL.SRCIBASMATINI.MAR;1 > (1) 
| TITLE BASSMAT_INIT 
| SIDENT /1=010/ ; File: BASMATINI.MAR Edit: PLL1010 


« 
FRRAARAAA AAA AH RATA AAE RATE AAAAAAARAAAREAARAAAAAAAAHAAAAKARTEReeAReEReHeeTERTTe 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
Faanstehetee NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oonPORAt ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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++ 
; FACILITY: BASIC code support 
; ABSTRACT: 


This module initializes each element of a matrix to the input 
constant. 


ENVIRONMENT: User Mode, AST Reentrant 


S AUTHOR: R. WiLL, CREATION DATE: 23-May-79 
: MODIFIED BY: 
ot 
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MAMMA BB BEE EEE PWN III Ponononononononony 2 2 Ss 


0 
0 1-001 = Original 
0 ; 1-002 - Make references to bounds signed. RW 7-Jun-79 
0 1-005 = Add support for byte, g and h floating. PLL 17-Sep-81 
0 1-004 = Change shared external references to G* RNH 25-Sep-81 
00 1-005 - Substitute a macro for the calls to the store routines. 
00 ; This should speed things sy PLL 6-Nov-81 
00 ; 1-006 = STORE macro must handle g & h floating, PLL 11-Nov-81 
00 1-007 - sorrect 3 tya~tiae expression in the FETCH and STORE macros. 
00 : PLL 20-Jan-82 
B8 1-008 = Correct another bug in the STORE macro. Does not conpute 
0 Linear index for one dimensional arrays properly. PLL 25-Feb-82 
000 1-009 - Add code in mainline code to support arrays of descriptors. 
000 LEB 28-JUN-1982. 
000 1-010 = Change own storage to stack storage. PLL 9-Jul-1982 
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BASSMAT_INIT 


DECLARATIONS 


00000000 
000004 
00008 
000C 
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oooo Soooooooo 
Soooo OSOCoooooo 

Sssssss. 
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15-SEP-19 
b-$6p=198 


-SBTTL DECLARATIONS 
INCLUDE FILES: 


EXTERNAL DECLARATIONS: 
-DSABL GBL 


.EXTRN BASSK_ARGDONMAT 


.EXTRN BASSK_DATTYPERR 
-EXTRN BAS$STO_FA_B_R8 
S$ST 
EXTRN BAS$ST 

; t 


BASSSSTOP 
TRN BASS$STORE_BFA 


MACROS: 


AX/VMS Macro v04-00 Page ; 
BASRTL.SRCJBASMATINI.MAR; 1 (2) 


Prevent undeclared 

symbols from bein 
automatically gtg al. 
signalled if al blocks 
mot present _in array desc 
or dimct = 0 

signalled if dtype of array 
isn’t word long float double 
array element store for byte 
array element store for word 
array element store for long 
array element store - float 
array element store = double 
array element store - gfloat 
array element store - hfloat 
get the scale for double 
signal fatal errors 


SBASSMAT_INIT see below, defines entire initialization algorithm 
STORE store an element into an array 


EQUATED SYMBOLS: 


lLower_bnd2 
lower_bnd1 


—Ooflo 


dsc$l_l1_1 = 24 
dsc$l_ul_1 = 
dsc$l_l1_2 = 
dsc$l_ul_2 = 
dsc$l_l2_2 = 36 


stack offset for temp 

stack offset for temp 

stack offset for temp 

output descriptor 

Length field within desc 

data type field in desc 

class field in desc 

pointer field in desc 

data field (4 longwords) 
stack offset, converted const 


desc offset if sub 


co CO ee EEE 


| 
| 
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te DECLARATIONS 6-SEP=1984 10:29:28 (CBASRTL.SRCJBASMATINI .MAR; 1 (2) 
00000028 dsc$l_u2_2 = 40 ; desc offset if 2 sub 
OWN STORAGE: 
| ; NONE 


PSECT DECLARATIONS: 


-PSECT _BASSCODE PIC, USR, CON, REL 
EXE, RD, NOWRT. LONG 


LCL, SHR, - 


Os a a 


WARIPOPIPOPONONINITUN 


SOWONAOUS WN —OOOn 


pa a shame sosiemanitinianesimeidhnatnssamnstinidntinta 
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| BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 Page 
‘o10 BASSMAT_INIT = Initialize a matrix 6-SEP=-1984 13:59:98 BASRTL.SRCIJBASMATINI.MAR; 1 . 3) 
0 132 .SBTTL BASSMAT_INIT = Initialize a matrix 
: : ; FUNCTIONAL DESCRIPTION: 
4 1 § : This routine initializes each element of a matrix to the 
0 137 ; input constant. The algorithm is the same for all the supported 
00 138 ; BASIC data types. In order to keep the code for all data types 
00 139 ; the same and to simplify the reading, the code has been done as 
00 140 ; a macro, which all the data types use varying only the letters 
000 161 ; . W, L, F, 0, G, H) in converting the constant, in passing the constant 
009 126 3 and calling the array store routines. 
$09 144 ; CALLING SEQUENCE: 
$000 128 ; CALL BASMAT_INIT (matri d l.v) 
3 ia matrix.wx.da, constant.rl.v 
0000 147; 
0000 148 ; INPUT PARAMETERS: 
0000 149; 
00000008 9000 150 constant = 8 
0000 151; 
0000 13¢ 3 IMPLICIT INPUTS: 
0000 153; 
0000 154; NONE 
0000 155; 
0000 156 ; OUTPUT PARAMETERS: 
0000 157 ; 
00000004 0000 158 matrix = 4 
0000 159; 
0000 160 ; IMPLICIT OUTPUTS: 
0000 161; 
0000 196 3 NONE 
0000 163; 
0000 164 ; FUNCTION VALUE: 
0000 165 ; COMPLETION CODES: 
0000 166; 
0000 167 ; NONE 
0000 168; 
0000 169 ; SIDE EFFECTS: 
0000 170; 
0000 171; This routine calls the BASIC matrix store routines, and may cause 
0000 ve 3 any of their errors to be signalled. It also may signal any of the 
0000 173; errors Listed in the externals area. 
0000 174; 
$88 175 ;-- 
0 17s 
000 17 
| 


ee EEE ee 


a 7 —— 
| 
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“BASSMAT_INIT 15=SEP=1984 23:44:09 VAX/VMS Macro v04-00 p 

‘O10 BASSMAT_INIT = Initialize a matrix 5-3 E 138. 93:59:58 BASRIL.SREIGASMATINI-MAR:1 -° 2" (2) 
LIST ME 

| «MACRO S$BASSMAT_INIT dtype : initialize algorithm 


destroyed by store routines 
upper bound for 2nd subscript 
0 pointer to array descriptor 


Ro = RS. USAGE 
RO -R 

1 

1 current value of 2nd subscript 


se 
; Set up Limits for looping through all elements 


“He IDN dtype, L 

fovL constant(AP), =(SP) 
CVTLdtype' constant(AP), -(SP) 
~ENDC 

IF ION ctype. D 

MOVL SFSL_SAVE (FP), RO 

JSB G*BASS$SCALE_R1 


data type is long 

move constant 

data type is not long 

; make constant same datatype 
as array, save on stack 


Oo 
SOOOoOoOoOoooooooooooooooooo 


SOOOOOOOOOSOOSOOSOOCOOOSOOSOSSOSOGSOSSSSCOSGCOCOCOCOOOSOOOOOOOOOoOO 


if array is double 

pass FP to get scale 

get scale in RO @ R1 

call a BLISS routine because 
the frame offsets are only 
defined for BLISS 

scale 


MULD2 RO, (SP) 
- ENDC 


34 
; Allocate data and value_desc on the stack. This applies to both 
z one and two dimensions. 


CLRQ -(SP) ; space for data 

CLRQ (SP) ; may be hfloat 

CLRQ (SP) ; space for value_desc 

CMPB DSC$B_DIMCT(R10), #1 3 determine # of subscripts 
BEQLU INIT_ONE_SUB'dtype‘ 3 7 gud. go init | 

BGTRU INIT_TWO SUBS'dtype' ; >=2 subs, go init 

BRi ERR_ARGDONMAT ; 0 subs, error 


34 

3; There is only 1 subscript. Make both verer and lower bound for 2nd 

3 pubece set 9 - The second subscript will be passed to and ignored by the 
3 store routine. 


SOOSOSCOOSSSOSOOSSSSSSSSSOSSoooooooooooooooooooooooooooo 


OOOO oOCoOoOoOOoOoOoOoOoOoOoOoOoOoOoOooSooSoSoSoOo 


INIT_ONE_SUB'dtype': 
ee BUSHL 


WWAWINIWNIAIAIRIPINININININININIDN 2 9 92H HF HFQOOOCOCOCOCOOCOCSCO OOOO OOOO OOWMmcccoccdc-~ 


MEAN 0 OONAUE WIN OOO NAU EWN 0 OD NAUE WIN 0 OD NAME WN OWONAUS WN —O0 


SOOOCSCOCSOSOSOOOSOOSOOSOOSOOSOSOOOOSOSOOSOSOOSOSOOSOOOOOOOOOOOoOO 


sc$l_ul_1(R10) ; 1st upper bound 
8 PUSHL dsc$l_l1_1(R10) ; Ist lower bound 
0 BGTR 1$ ; not 0 or neg, do 2nd sub 
00 MOVL #1, (SP) ; don’t alter col 0 
00 1$ MOVL #1, R9 ; dummy 2nd lower bound 


ee 


BASSMAT_ INIT 
bettie 


| 
} 


J 13 


ERIS 3:2 


9 
8 


AX/VMS Macro V04-00 
BASRTL.SRCJBASMATINI.MAR; 1 


3; dummy _ upper bound 
; go loo 


Put the 9 bound for both subscripts on the 
ound for both subscripts will start 


Ist upper bound 
Ist lower bound 
not row 0 or neg. do cols 
start with row 
one upper bound 
nd lower bound 


not col 0, go loop 
start with col 1 


3 R11 has 2nd lower bound 


Column lower 


Column upper bound is on the stack. 
e converted to the correct type. 


: put constant into RO 
RO & R1 for double 


data type is hfloat 
pointer to array desc 
current row 

current column 


data type is gfloat 
pointer to array desc 
current row 

current column 


data type is double 
pointer to array desc 
current row 


BASSMAT_INIT = Initialize a matrix 
00 PUSHL #1 
$ BRB LOOP_2ND_SUB'dtype’ 
00 3° 
4 ; There are 2 subscripts. 
: —— and make sure that the lower 
D ; at 1 (do not alter row or col 0) 
00 
0 és INIT_TWO_SUBS'dtype’: 
o09 46 BUSHL dsc$t_ut 2(R10) 
B08 4 PUSHL dsc$l_l1_2(R10) 
00 48 BGTR 1$ 
0000 49 MOVL #1, (SP) 
0000 50 1$: MOVL dsc$t ugg (hi). Rg 
0000 51 PUSHL dsc$l_l2_2(R10) 
444 26 BGTR LOOP TST_SUB'dtype' 
000 5 MOVL #1, TSP) 
0000 54 
0000 55 3+ 
0000 56 ; Loop through all the rows. 
0000 57 ; initialized on the stack. 
0000 58 ;- 
0000 59 
0000 60 LOOP_1ST po ope 
0000 61 AOVL ower_bnd2(SP), R11 
0000 6 
0000 6 :+ 
0000 64 ; Loop through all the glenents (columns) of the current row. 
0000 65 : bound is initialized in R11. 
0000 66 : Distinguish array by data type so that the correct store routine can be 
0000 67 ; called and the constant can 
0000 68 ;:- 
0000 $89 
0000 0 LOOP_2ND_SUB‘dtype': 
0000 71 
0000 ie; MOV'dtype’ constant_cvt(SP), RO 
0000 7 
0000 74 
0000 75 
0000 76 ; _and all other data types take 1 longword. 
0000 77 ;:- 
$608 8 IF ION dt 
+ ype, H 
$000 &0 wiv. ARO, Re 
0000 1 MOVL lower_bnd1(SP), R5 
0000 Hf MOVL R11, R6 
000 8 o1FF 
000 84 If IDN dtype, G 
000 85 MOVL R10, R2 
0000 $ MOVL lLower_bnd1(SP), R3 
0000 MOVL R11, R4 
0000 8 LFF 
00 89 If IDN dtype, D 
00 90 MOVL R10, R2 
00 91 MOVL Lower_bnd1(SP), R3 
0000 92 MOVL R11, R4 


current column 


Page 


Row and column upper and lower bounds have been 


" When eprese by value, hfloat takes 4 words, ees and double take 2 words, 


7 
(4) 


——__ -__ -_—_—_—__-—_— — ——_-_ - 


BASSMAT_INIT 
810 . 


| 


BASSMAT_INIT 


SOoOQoOoooooooooooooooo 


SSSSSSSSSSSSSSSSS3S3 
COOooooooo°oo 


OOCOoCoCooCoooeo 


- Initialize a matrix 


3 
4 
5 


3 I S| SQOOCOTOOOOCOCOVOWOOOOONO 


CONAUEWN $0 OONOAUE WN" OOOnO 


s+ 


Kk 13 


oIFF 

MOVL R10, R1 

MOVL lLower_bnd1(SP) 
MOVL R11, RF 

~ENDC 

-ENDC 

-ENDC 

MOV’ dtype’ RO, da 
STORE ‘dtype' 

INCL 

CMPL R11, R9 

BGTR 


BRW _ LOOP_2ND_SUB'd 


; Have completed entire row. 
: continue with next row. 


2$: 


3$: 


INCL Lower_bnd1 (SP) 
CMPL Lower_bnd1 (SP) 


i a ts 9 $356 :93 AX/VMS Macro V04-00 


728 ([BASRTL.SRCIJBASMATINI .MAR;1 


all other data types 
pointer to array desc 
current row 

current column 


» R2 


ta(SP) store value in value_desc 
store in array 
get next column 


see if last column done 


type’ no, continue inner loop 


See if it was the last row. If not, 


3; get next row 
- upper_bndi(SP) ; see if last row done 


BRwW LOOP_1ST_SUB'dtype’ 3 no, continue outer loop 


RET 


: yes, finished 


Page 


(4) 
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BASSMAT_INIT = Initialize a matrix 6-SEP-19 BASRTL.SRCIJBASMATINI.MAR; 1 (5) 
4FFC 33 9 -ENTRY BASSMAT_INIT , “M<R2,R3,R4,R5,R6,R7,RB,RI,R10,R11,1V> 
s* 
a : ; Put routine arguments into registers for ease of use. 
4 : : If block 2 of array descriptor (multipliers) is not present then error. 
00 : | 
SA 04 at dO i : MOVL matrix(AP), R10 : ptr to array descr in R10 
3F OA AA 07 «£1 (0006-398 BBC  #DSCSV_FL_GOUNDS, DSCSB_AFLAGS(RI0), ERR_ARGDONMAT 
0008 9 : exit if block 3 not 
0008 0 3 present in descriptor 
$38 38. 
Bone 38 : Algorithm now differs according to data types 
0008 33 : 
55 A pO 0008 36 MOVL R10, R5 3; save original pointer 
05 06 02 A5 _ 8F 9008 37 4$: CASEB DSC$B_DTYPE(RS), #DSCSK_DTYPE_B, #<DSCSK_DTYPE_D = DSCSK_DTYPE_B> 
0044" 001 38 1$: «WORD BYTE-TS$ 3 code for byte dtype 
0180" 0015 39 «WORD WORD-1$ :; code for word dtype 
02BC* 0017 40 -WORD LONG-1$ :; code for long dtype 
002A° 0019 41 «WORD ERR_DATTYPERR-1$ 3; quad not supported 
03F8° 0018 +g «WORD FLOAT-1$ ; code for float dtype 
0534 001D 4 WORD DOUBLE-1$ ; code for double dtype 
OO1F 44 
001F 45 3+ 
Bate m4 ; G and H floating fall outside the range of the CASEB. 
OO1F 348 ° 
1B 02 A5 91 OQOTF 49 CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_G 
03 12 0023 50 BNEQ 
0668 31 Base $2! BRW GFLOAT ; code for gfloat dtype 
1¢ 02 AS) =91—«—«0028 328 2$ CMPB = DSCS$B_DTYPE(RS), #DSCSK_DTYPE_H 
03 12 O02C 354 BNEQ 
O7A2 31 ane $02 BRW HFLOAT 
18 02 A5 91 0031 357 3$ CMPB DSCSB_DTYPE(RS), #DSCSK_DTYPE_DSC 
06 12 0035 $28 BNEQ ERR_DATTYPERR 
55 04 A5 00 0037 359 MOVL 4(R5), RS ; RS <== addr of desc | 
D1 Ss ts $9 BRB 4$ ; CASE again on dtype in desc 
003D ¢ ERR_DATTYPERR: 
00000000°8F ODD ¥4 6 PUSHL #BASSK_DATTYPERR ; Signal error, unsupported 
00000000'GF 01 FB Shep rt CALLS #1, G*BASS$S$STOP ; dtype in array desc 
004A 366 ERR_ARGDONMAT: : 
00000000°8F ODD boen 67 PUSHL #BAS$K_ARGDONMAT : signal error, 0 for dimct 
00000000'GF 01 FB 3930 re: CALLS #1, G*BASS$SSTOP : or block 2 or 5 absent 
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BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 Page 
‘010 BASSMAT_INIT = Initialize a matrix 57 oE E1382 93:39:58 EBASRTL. SREIBASMATINI .MAR: 1 . 
O37 371 BYTE:  S$BASSMAT_INIT B 3 expand to byte operations 

057 3+ 
057 3 REGISTER USAGE 
057 : RO - R8& destroyed by store routines 
0057 3 RY upper bound for 2nd subscript 
0057 : R10 pointer to array descriptor 
0057 : R11 current value of 2nd subscript 
0057 :- 
0057 
0057 3+ 
8238 ; Set up Limits for looping through all elements 
0057 
0057 IF IDN Be. L 
0057 ~lFT ; data type is long 
0057 MOVL constant(AP), =-(SP) ; move constant 
0057 1FF ; data type is not long 
7E O08 AC F6 0057 CVTLB constant(AP), -(SP) ; make constant same datatype 
0058 3 aS array, save on stack 
0058 -ENDC 
0058 olf IDN B. D : if array is double 
0058 MOVL SFSL_SAVE_FP(FP), RO 3; pass FP to get scale 
0058 JSB G*BASSSSCALE_R1 ; get scale in RO & RI 
0058 ; call a BLISS routine because 
0058 3; the frame offsets are only 
0058 ; defined for BLISS 
0058 MULD2 RO, (SP) 3; scale 
0058 -ENDC 
0058 
0058 7+ ; 
0058 ; Allocate data and value_desc on the stack. This applies to both 
0058 3 one and two dimensions. 
0058 3° 
0058 
7E 7C 0058 CLRQ -(SP) : space for data 
7E 7C Q05D CLRQ -(SP) may be hfloat 
..|UM 4 CLRQ -(SP) : space for value_desc 
01 OB AA 91 0061 CMP DSC$B_DIMCT(R10), #1 ; determine # of subscripts 
05 13 0065 BEQLU INIT_ONE_SUBB : 1 sub, go init 
15 1A 0067 BGTRU INIT_TWO SUBSB ; >=2 subs, go init 
FFDE 31 tose BRW ERR_ARGDONMAT ; 6 subs, error 
06C 3+ 
006C ; There is only 1 subscript. Make both vpper and lower bound for 2nd 
Ober ; subscript a 1. The second subscript will be passed to and ignored by the 
06C 3 store routine. 
006C :° 
006C 
Bpee INIT_ONE_SUBB: 
1C AA DD 006C PUSHL dsc$l_u1_1(R10) ; Ist upper bound 
18 AA ODD BR ee PUSHL dsc$l_l1_1(R10) : Ist lower bound 
93 14 2 BGTR 1$ ; not 0 or neg, do 2nd sub 
3 1 p00 0074 MOVL #1, (SP) : don’t alter col 
5 4 DO 0077 1$: MOVL #1, R9 3: dummy 2nd lower bound 
1 DD OO7A PUSHL #1 ; dummy 2nd upper bound 


1 
( 


5) 


| SASSRAT INIT AX/VMS Macro 
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BASSMAT_INIT = Initialize a matrix g-$Ep= lobe 19:39:98 BASRTL.SRCIJBASMATINI .MAR; 1 
1A 11 7¢ BRB LOOP _2ND_SUBB : go loop 


age 11 
. (5) 


7E 
7E 


Oooo 


g + 
7E ; There are 2 subscripts. Put the ag oo bound for both subscripts on the 
O7E ; Stack and make sure that the lower bound for both subscripts will start 
fA: ; at 1 (do not alter row or col 0) 
O7E 
O7E INIT_TWO_SUBSB: 
20 AA DD OO07E PUSHL dac$t ui giant) ; 1st upper bound 
1C AA DD 0081 PUSHL dsc$l_l1_2(R10) ; Ist lower bound 
03 «14 Bese BGTR 1$ ¢ not row 0 or neg. do cols 
E 01 pO 0086 MOVL #1, (SP) 3 start with row 
59 28 AA DO 0089 1S: MOVE, gsESL_ug_2¢R109, RO znd upper bound 
4 AA DD 008D PUSHL dsc$l_l2_2(R10) ; 2nd lower bound 
03 14 0090 BGTR  LOOP_TST~SuBB ; not col 0, go Loop 
6—E 01 00 4944 MOVL #i, TSP) 3 start with col 1 
0095 3+ 
0095 ; Loop through all the rows. Row and column upper and lower bounds have been 
0095 : initialized on the stack. 
0095 3= 
0095 
0095 LOOP_1ST_SUBB: 
5B 46E 600 0095 MOVL Lower_bnd2(SP), R11 ; R11 has 2nd lower bound 
0098 
z + 
0098 ; Loop through all the elements (columns) of the current row. Column Lower 
0098 ; bound is initialized in R11. Column upper bound is on the stack. 
0098 ; Distinguish array by data type so that the correct store routine can be 
94 ; called and the constant can be converted to the correct type. 
0098 
0098 LOOP_2ND_SUBB: 
50 24 AE 90 0098 MOVB constant_cvt(SP), RO 3 put constant into RO 
Baar s ; RO &R1 for double 
009C 3; When essed by value, hfloat takes 4 words, gfloat and double take 2 words, 
BRoe 3; and all other data types take 1 longword. 
009C 2 
009C IDN 8. H ; data type is hfloat 
009C MOVL R10, R 3; pointer to array desc 
009C MOVL lower_bnd1(SP), R5 : current row 
009C MOVL R11, R6 3 current column 
009C LFF 
009C IF IDN 8. G ; data type is gfloat 
4943 MOVL R10, R2 3; pointer to array desc 
09C MOVL lLower_bnd1(SP), R3 3 current row 
009C MOVL R11, R4 i current column 
009C LFF 
Boor iF IDN B, D ; data type is double 
09C MOVL R10, R2 3 pointer to array desc 
009C MOVL lower_bnd1(SP), R3 3: current row 
948 MOVL R11, R4 : current column 
9C J LFF :; all other data types 


r—- 


B14 


| BASSMAT_INIT 15-SEP-1984 244: AX/VMS # v04- 
| e 244: lacro P 1 
bein BASSMAT_INIT = Initialize @ matrix  ‘G-SEP-1984 10:59:58 EBAGRTL.SREIBASMATIN maRs1 2%" {8 
| 
51 SA 0D 9C MOVL R10, R1 i pointer to array desc 
52 046 AE b9 oF MOVL lower pores R2 3 Current row ’ 
53 5B) OD A3 MOVL R11, R 3 current column 
A6 eENDC 
- ~ENDC 
A -ENDC 
14 AE 50 90 QO0A6 MOVB RO, data(SP) ; store value in value_desc 
| aaa stone lon ; store in array 
OAA CMPB ts ary SetR4), #dsc$k_dtype_dsc 
OAA pneo © -$00098 8 
QAA MOV 380098 RO 
OAA MOV dsc$b “dtype(RO), dtype(SP) 
OAA MOVB dsc$b_class(RO), class(SP) 
OAA MCVAL oe tacSP). poroter (SP) 
QOAA MOVW str_len(SP) 
OOAA CMPB dsc foe dimct (RQ), #1 
OAA BNEQ sa 
OAA PUSHL 
OAA PUSHL RG 
OAA PUSHAL value _desc+8(SP) 
OAA CALLS 6 AGASSSTORE _BFA 
OAA BRW AR 
QOAA 30011$: PUSHL R 
QOAA PUSHL R 
QOAA PUSHL R4 
QOAA PUSHAL yolug desc+12(SP) 
QOAA CALLS G*BASSSTORE_BFA 
QOAA BRw $0 8$ 
QOAA 30009$: CMPB sc$b_class(R4), #dsc$k_class_bfa 
QOAA BNEQ 
QOAA JSB gopngss 0. FA_S_R8 
QOAA BRW 008 
QOAA 30000$: 88S #5, 10(R4), 300018 
OQOAA CMPB dsc $b. dimet(R4), #1 
OOAA BNEQ 
QOAA MOVZWL Secu, length (04) R8 
OOAA INDEX R5, dSc$L_L1_1(R4), dsc$l_u1_1(R4), RB, #0, R7 
OAA ADDL dsc$a g0{RO), R7 
OAA MOVB RO, (R7) 
OOAA BRW 3608s 
QOAA 300108: INDEX R5, dsc$l_L1_2(R4), dsc$l_ul_2(R4), dsc$l_m2(R4), #0, R7 
OAA MOVZWL dsc$w_lengthTR4), RB 
AA INDEX 6, dSc$L_L2_2(R4), dsc$l_u2_2(R4), RB, R7, R7 
AA ADDL gache aQ(R4)> R7 
OAA vB (R7) 
OOAA BRW 30608$ 
OAA 30001$: CMPB 956 $b. dimct(R4), #1 
QAA BNEQ 
OAA MOVZWL dsc$w ztengeh(né 
OAA INDEX R6. soecstel “Vato, Sisc$t_ut_1(R4), R8, #0, R7 
OAA ADDL c$a 2930 Stra) 
OAA MOVE «3 
AA BRW 3 6088 
AA 30012$: INDEX R6, dsc$l_l2_2(R4), dsc$l_u2_2(R4), dscSl_mi(R4), #0, R7 
AA MOVZWL d3cSy. LengthtR4), R8 
OAA INDEX R5, dSc$L_L1_2(R4), dsc$l_u1_2(R4), RB, R7, R7 


t--— - 
| 


“BASSMAT INIT 
1-010 BASSMAT_INIT 


> gu 
> 


= Initialize a matrix 


30015$: 
Pp 


30013$: 


30002$: 


30014$: 


30003$: 


30016$: 


i tae $336 


tacttangine?s 


+99 AX/VMS Macro V04-00 
8 (BASRTL.SRC 


IDN 8B, G 

Sogrtettrrenn: #dscS$k_dtype_dsc 

dsctb dee _dtype(RO), dtype(SP) 
sc$b~class(RO), class(SP) 

da ta(SP), pointer (SP) 


# § r_len 
pe 7Bs “timer crs), ay 


sate desc+12(SP) 
$3 G ABASSSTORE _ BFA 


0008 
sc$b_class(R2), M#dsc$k_class_bfa 
“BASSSTO_FA_B_R8 


8&$ 
#5, 10(R2), 300038 
d5¢ $b, dimct(R2), #1 


dsc$w seh eth ae 


Rd), 
dsc Sa 9ng0tR2)s 


asc$t_ut_1(R2), R6, #0, RS 


Oo ooae 
R3, dsc$l_l1_2(R2), dsc$l_u1_2(R2), dsc$l_m2(R2), #0, RS 
dsc$w_lengthTR2), R6 

; C$ ves dsc$l_u2_2(R2), R6, RS, RS 


30 
936590 dimct(R2), 


dsc $w sh grogn (nee 
R6, #0, RS 


on asc$t_ul_1¢R2), 
dsc$l_m1(R2), 


R6, RS, RS 


dsc$l_u2_2(R2), #0, RS 
R6 


R2 
-2(R2), dsc$l_ul_2(R2), 


B, D 
dsc$b_dtype(R2), #dsc$k_dtype_dsc 


tie BASMATINI MAR; 1 


Pave 


eee 
| 
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ASSMAT_INIT 15- 4 AX/VMS M1 se P 
heir BASSMAT_INIT = Initialize a matrix Pa19B6 10:39:98 YOASRTE. SRETBASMATGE.mar:1 2% UG) 
OAA BNEQ 7901 7$ 
AA MOVL phn 1G 0 
AA MOVB dsc$b_dtype(R0O), dtype(SP) 
AA vB dsc$b_class(RO), ss (SP) 
AA MOVAL de a(SP), pointer (SP) 
AA MOVW str_len(SP) 
AA CMPB ! scfbe dimcet(R2), #1 
QAA BNEQ 
AA PUSHL 
OAA PUSHL 
OAA PUSHAL lue_desc+8(SP) 
AA CALLS i GASSSTORE. BFA 
AA BRW 6 
OAA 30019$: PUSHL 
OAA PUSHL 
OAA PUSHL RS 
OAA PUSHAL ve lue_desc+12(SP) 
OAA CALLS oisee ree BFA 
OOAA BRW : 8 
QOAA 30017$: CMPB sc$b_class(R2), #dsc$k_class_bfa 
QOAA BNEQ 
OOAA JSB G BAsssTO. FA_B_R8 
OOAA BRW 000 
OOAA 30004$: BBS #5, 10(R2), 390058, 
QOAA CMPB dsc $b dimct(R2), 
OOAA BNEQ 0018 
OQOAA MOVZWL dgc$u ls Longen (he 
OOAA INDEX “Hind, Sasc$t_ut_1(R2), R6, #0, RS 
OOAA ADDL dsc$a 30 Sted) 
OOAA MOVB RO, (RS) 
OOAA BRW 30608$ 
OOAA 30018$: INDEX &3, dsc$l_l1_2(R2), dsc$l_u1_2(R2), dsc$l_m2(R2), #0, RS 
QOAA MOVZWL GscSu_lLengentRe) R6 
OOAA INDEX R4, dSc$l_l2_2(R2), dsc$l_u2_2(R2), R6, RS, RS 
OOAA ADDL dsc$a_a0(R2)> RS 
OOAA MOVB (R5) 
OAA BRwW 30008$ 
OAA 30005$: CMPB gscsbe dimct(R2), #1 
OOAA BNEQ 
OOAA MOVZWL dsc$w = tenath (Re 
OOAA INDEX R4, dSc$L_L Aithd, *asc$t_ut_1(R2), R6, #0, RS 
OOAA ADDL dsc$a cOtRD) 
QOAA MOVB RO, (RS) 
QOAA BRW 30608$ 
AA 30020$: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_m1(R2), #0, RS 
OOAA MOVZWL dgc$u_LengthtRe) R6 
QOAA IND R3, dsc$l_L1_2(R2), dsc$l_ul_2(R2), R6, RS, RS 
OAA ADDL SacSe gpihe), R5 
aM nih, ely 
18 02 A1 91 QOAA CMPB qsc$be dtype(R1), #dsc$k_dtype_dsc 
41 12 OOA BNEQ 
50 6% Al 3 B MOVL 4(R1), RO 
OE AE § AO B4 MOVB dsc$b_ _dtype(RO), dtype (SP) 
OF AE 03 A0 90 00B9 MOVB dsc$b~class(RO). class(SP) 
0 AE 14 AE DE 0B MOVAL data(SP), pointer (SP) 
OC AE OA 860 O00C MOVW #10, str_len(SP) 


—— 


—_——_-_---—-- 
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| 
ASSMAT_INIT 15=SEP=1984 23:44:09 VAX/VMS M v04-00 p 1 
0 BASSMAT_INIT = Initialize a matrix a-SEPI TSE TBiSS:5E PONTE Secte vORe OO aan. POOP 3, 
01 OBAl 91 CMPB dimet(R1), #1 
| 1 42 gues «| S0n288° 
ef DD PUSHL R 
146A p? PUSHAL ~ lue_desc+8(SP) 
00000000' GF 08 FB CALLS # gr S$STORE_BFA 
00 31 BRW 30608$ 
DD 30023$: PUSHL R 
DD PUSHL R 
DD PUSHL R 


alue_desc+12(SP) 


v 
CALLS #4,G*BASSSTORE_BFA 
8 30 6 se 


0 

18 AE DF 00 
00000000 ° GF 4 . 
0 

0 

0 

0 


7 
s 
D 
F 
1 
4 
4 
F 7 
08A 3 E RW 
BF BF 0 ay 33 5 30021$: se sc$b_class(R1), #dsc$k_class_bfa 
00000000'GF 16 OOF8 JSB “BAS$STO_FA_B_R8 
007A 31 F BRW 
3C OA A105 £0 107 30006$: BBS #5, 10(R1), 30007$ 
01 OB Al 91 0106 CMPB gsc dimct(R1), #1 
16 12 O10A BNEQ 00228 
55 61 3C€ 010C MOVZWL dsc$w_length(R1), R5 
00 55 11C Al 1841 3 OA 0108 INDEX R2, dSc$L_L1_1(R1), dsc$l_u1_1(R1), RS, #0, R4 
54 10 A1 CO $118 ADDL dsc$a_a0(R1), R4 
64 50 90 gic MOVB = RO, (R4) 
0059 «31 «O11F BRW 30608$ 
18 Al 20 A1 1¢ a! 32 0A Oige 30022$: INDEX R2, dsc$l_l1_2(R1), dsc$l_u1_2(R1), dsc$l_m2(R1), #0, R4 
7 oe Oe he MOVZWL dsc$w_length(R1), R5 
54 55 28 Al 26 Al 23 0A Oigr INDEX R3, dSc$l_l2_2(R1), dsc$l_u2_2(R1), RS, R4, R4 
54 10 A1 CO 0138 ADDL dsc$a_a0(R1), R4 
64 50 90 013¢ MOVB = RO, _(R4) 
0039 31 013F BRW 30608$ 
01 OB Al 91 O14e 30007$: CMPB gsc$b dimct(R1), #1 
16 12 146 BNEQ 0024 
55 61 3€ 014 MOVZWL dsc$w_length(R1), R5 
00 55 11C Al 18 Al 33 OA u38 INDEX R3, dSc$L_L1_1(R1), dsc$l_u1_1(R1), RS, #0, R4 
54 10 Al CO 0154 ADDL dsc$a_a0(R1), R4 
64 50 90 0158 MOVB = RO, _-(R4) 
0010 31 0158 BRW 30608$ 
14A1 28 Al 26 al 33 OA O15 30024$: INDEX R3, dsc$l_l2_2(R1), dsc$l_u2_2(R1), dsc$i_m1(R1), #0, R4 
28 7 a $168 MOVZWL dsc$w_length(R1), R5 
54 55 20 A1 1C Al 32 OA 0168 INDEX R2, dSc$l_l1_2(R1), dsc$l_u1_2(R1), RS, R4, R4 
54 10A1 CO 017% ADDL dsc$a_a0(R1), R4 
64 50 90 0178 MOVE RO, (R4) 
178 ENDC 
178 ENDC 
178 ENDC 
178 300088: 
5B 4206 0178 INCL R11 3 get next column 
59 5B »D1 017d CMPL R11, R9 3 see if last column done 
03 14 0180 BGTR 2% 


0 aa 


-—----— - 
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| ASSMAT_INIT 15-SEP- AX/VMS Macro v04-00 P 1 
it BASSMAT_INIT = Initialize @ matrix b-8Ep=198e 10:39:28 LOASRTE Sac ToASMATSAL marst 2% (8; 
FFI3) = 31 } ; BRW LOOP_2ND_SUBB ; no, continue inner loop 
1 i+ 
1 : Have completed entire row. See if it was the last row. If not, 
1 ; _cont inue with next row. 
1 } ai 
04 AE D6 0185 2s: INCL Lower_bnd1 (SP) 3; get next row 
08 AE 046 " H } : aga ower_bndi(SP), upper_bnd1(SP) ; see if last row done 
FFO 31 : F BRW LOOP_1ST_SUBB ; no, continue outer loop 
04 198 3$: RET ; yes, finished 


G 14 
BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v06-00 Page 17 
1-010 BASSMAT_INIT = Initialize a matrix SrSEF= SES TOiSSISE FOMXTE Secce YOkT OO aang Meee 


19 373 WORD: S$BASSMAT_INIT W 3 expand to word operations 


) 


R R8 destroyed by store routines 
upper bound for 2nd subscript 

0 pointer to array descriptor 

1 current value of 2nd subscript 


nD R USAGE 


se 
: Set up Limits for looping through all elements 


3 IF IDN W, L 
3 IFT ; data type is long 
3 MOVL constant(AP), -(SP) 3 move constant 
3  1FF ; data type is not long 
7E OB AC F7 3 CVTLW constant(AP), -(SP) 3 make constant same datatype 
7 3; aS array, save on stack 
7 ~ENDC 
7 IF IDN Ww, DO : if array is double ; 
7 MOVL SFSL_SAVE_FPC(FP), RO ; pass FP to get scale 
7 JSB G*BASSS$SCALE_R1 get scale in RO & R1 
7 call a BLISS routine because 


WOOOOOOOOOOOOOOOVOOOVOOOOOOOO 


NN 
mmm 
we NNN 


SCOOOCOOCOCOCOCOSOCOCOOOCO COO OOCOOSOOOOSCOSSCOCSOOOOCOCOOCOOOCOOO OOOO OOOOOCOO 


7 ; the frame offsets are only 
7 ; defined for BLISS 
7 MULD2 RO, (SP) ; scale 
97 -ENDC 
97 
97 3+ 
97 ; Allocate data and value_desc on the stack. This applies to both 
44 3 one and two dimensions. 
97 : 
C 97 CLRQ -(SP) 3; space for data 
C 99 CLRQ -(SP) ; may be hfloat 
C 38 CLRQ -(SP) ; space for value_desc 
01 OB AA 1 9D CMPB DSC$B_DIMCT(R10), #1 ; determine # of subscripts 
05 3 Al BEQLU INIT_ONE_SUBW : 1 sub, go init 
15 A A3 BGTRU INIT TWO SUBSW 3; >=2 subs, go init 
FEA2 31 he BR ERR_ARGDONMAT ; 6 Subs, error 
A 3¢ 
A8 ; There is only 1 subscript. Make both ypper and lower bound for 2nd 
A8 ; subscript a 1. The second subscript wi be passed to and ignored by the 
AB ; store routine. 
A8 f« 
A8 
AB INIT_ONE_SUBW: 
1C AA OD A8 PUSHL dsc$l_u1_1(R10) ; Ist upper bound 
18 AA OD AB PUSHL dsc$l_l1_1(R10) ; Ist lower bound 
03 14 AE BGT 1$ ; not 0 or neg, do 2nd sub 
of 4 D 3! MOVL #i, (SP) : don't alter col 0 
1 B 1$: MOVL #1, R9 3; dummy gre lower bound 
01 ODD B6 PUSHL #1 : dummy 2nd upper bound 


—_—_—_ --— — 
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| BASSMAT_INIT 15=SEP=1984 23:44:09 VAX/VMS Macro v04-00 Page 1 
1-010 BASSMAT_INIT = Initialize a matrix g-Sep-1984 $9:36;58 BASRTL.SRCIJBASMATINI.MAR; 1 y (3) 
1A 110188 Bee LOOP_2ND_SUBW 3 go loop 
| im | 
| 1BA : There are 2 subscripts. Put the go bound for both subscripts on the 
1BA 3 o- and make sure that the lower bound for both subscripts will start 
1BA ; at 1 (do not alter row or col 0) 
1BA yo 
| INIT_TWO_SUBSW: 
D PUSHL Gsc$t ul 3 (R10) ; 1st upper bound 
D PUSHL dsc$l_l1_2(R10) ; 1st lower bound 
4 BGTR 1$ ; not row 0 or neg. do cols 
0 MOVL #1, (SP) ; start with row 
0 1$: MOVL Gsc$t ugg (Ri0) RO ; 2nd upper bound 
D PUSHL dsc$l_l2_2(R10) ; 2nd lower bound 
4 BGTR  LOOP_TST~SUBW ; not col 0, go Loop 
6— 01 0 MOVL wi, TSP) ; start with col 1 
s¢ 
; Loop through all the rows. Row and column upper and lower bounds have been 
; initialized on the stack. 
LOOP_1ST_SUBW: 
5B 6E 00 MOVL lLower_bnd2(SP), R11 ; R11 has 2nd lower bound 


s¢ 

; Loop through all the elements (columns) of the current row. Column lower 
; bound is initialized in R11. Column upper bound is on the stack. 

; Distinguish array by data type so that the correct store routine can be 

; called and the constant can be converted to the correct type. 


LOOP_2ND_SUBW: 


MOVW constant_cvt(SP), RO 3; put constant into RO 
; RO &R1 for double 


: When peeees by value, hfloat takes 4 words, gfloat and double take 2 words, 


50 24 AE B60 


\wh~ 4-4 ~)~-)~-4~-4~-)-1-4-4-4-4-4-A-4 4444 _4ooo 4 AAA AAA AAA 1-1 AA lll lle 
09.0000 09 09 09 00 00 Cd Gd Gd 09 00 00 C9 C0 CO CO CD OD OD SE EE EEE EEE HS SS SMO OVUMVIOU PP PP 


fee le le ele lela ol awl el al al al ola lelolololelololalalelelelealolelololololelololololololelol oo) 
staiwtatiatiawaiuwataiamiadataiadasaiaiataiatbaiatiabatat tabababadabad ad adababatad dabadaiadabadadadad 


3; and all other data types take 1 longword. 

IF IDN Ww, H 3; data type is hfloat 

MOVL R10, R 3; pointer to array desc 
MOVL lLower_bnd1(SP), R5 3; current row 

Rov R11, R6 : current column 

IF IDN Ww, G ; data type is gfloat 

MOVL R10, R2 3 pointer to array desc 
MOVL lLower_bnd1(SP), R3 3 current row 

nove R11, R4 3 current column 

IF IDN Ww. OD 3; data type is double 

MOVL R10, R 3; pointer to array desc 
MOVL lLower_bnd1(SP), R3 3 current row 

MOVL R11, R4 : current column 

~1FF 3; all other data types 


“ 
wo 
oa 
m 
-—— 
oo oo 
>> >> 
>> >> 
o-co 700-09 


c —— _— 
' 
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BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro V04-00 Page 19 
beat BASSMAT_INIT = Initialize a matrix Pat eet 4 93:39:98 EBASRTL. SREIGASMATINI MAR: 1 . (5) 
51 SA DO 0108 MOVL R10, R1 3 pointer to array desc 
52 04 AE 4 MOVL lower “pared. R2 : corvent row . 
53 5B OD MOVL R11, R 3 current column 
~ENDC 
| END 
| ~ENDC 
14 AE 50 B60 MOVW RO, data(SP) ; store value in value_desc 
STORE W ; store in array 

énpe AO Sb atys Ra) #dsc$k_d d 
$ ype » #dsc$k_dtype_dsc 
BNee © $008e8 ; 
MOVL 4(R4), RO 
MOVB dsc$b_dtype(RO), dtype(SP) 
dsc$b_class(RO), class(SP) 

MOVAL data(SP), pointer (SP) 
MOVW #10, str_len(SP) 
CMPB dsc $b dimct(R4), #1 
BNEQ 003 
PUSHL 5 
PUSHL R4 
PUSHAL value _desc+8(SP) 
CALLS #3 GSGASSSTORE_BFA 
BRW 30633$ 

30036$: PUSHL R6 
PUSHL R5 
PUSHL R4 
PUSHAL value _desc+12(SP) 
CALLS 4#4,G*BASS$STORE_BFA 
BRW 30033$ 

30034$: i qscSaclass(R4), Mdsc$k_class_bfa 
JSB “BASSSTO_FA_W_R8 


BRW 0033$ 
30025$: BBS #5, 10(R4), 30026$ 
CMPB gs¢$b dimct(R4), #1 

00358 


BNEQ 
MOVZWL dsc$w_length(R4), R8 
INDEX R5, dsc$l_L1_1(R4), 


ht dsc$l_u1_1(R4), R8, #0, R7 
ADOL dsc$a_a0(R4)> R7 
R (R7) 


0 
BRW 306338 
30035$: INDEX R5, dsc$l_L1_2(R4), dsc$l_ul_2(R4), dsc$l_m2(R4), #0, R7 
MOVZWL dsc$w_lengthTR4) 
INDEX R6, dSc$L_L2_2(R4), dsc$l_u2_2(R4), RB&, R7, R7 
(R4)> R7 
6 


00338 
30026$: CMPB gsc$b dimct(R4), #1 
BNEQ 0378 
MOVZWL Socdu, Longe hts), Ae 


INDEX R6, dSc$t_l1_ 


dsc$l_ul_1(R4), RB, #0, R7 
ADOL dsc$a g0(RG), R7 


4 ggddeStu2_2(Rd), dsc$l_m1(R4), #0, R7 
4), dsc$l_u1_2(R4), R8, R7, R7 


fe Fee J ne ne Te we Jw nw | we we we we we) ee ae ww fe ew ew ww wal olololololololeoleolololeolelolelolelolelolelolo l=! 
MMMM MMMM MMMM MMMM MMMM MMMM MMMM MMMM mMmmmmmmmmn mmm mnmnmmmnmmmnmnmnoo 
PRDPRAA_LAXPAXAA AA AAA AAA AAA AA AA AAA AA AA AAA AAA AAAAAAAOOAOAO OSM MD 


30037$: INDEX R6, dsc$l 


———_—_-_-—- --— - — —-—_—_—------- ---- 


| 
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| BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 P 
| 1-010 BASSMAT_INIT = Initialize a matrix 6-SEP-1984 99:39:58 BASRTL.SRCIJBASMATINI.MAR; 1 cht 28, 
| 6 ADDL Sache gy. R7 
MOVW RO, (R7) 
LFF 
If .G 
aa ; dtype(R2), #dsc$k_dtype_dsc 
MOVL 4(R2), RO 


RO), 
d RO). 
MOVAL data(SP), pointer 
MOVW #1 str_len(SP) 

CMPB (sti dimct(R2), #1 


PUSHL R2 
PUSHAL value desc+8(SP) 
CALLS SsoSaghsestone BFA 


B 
30040$: PUSHL 
PUSHL Rg 


PUSHL 4 
PUSHAL volue desc+12(SP) 
CALLS sp SSSTORE_ BFA 


$0 
30038$: CMPB acSh class(R2), #dsc$k_class_bfa 
JSB “BAS$SSTO_FA_W_R8 


30027$: BBS #5, 10(R2), spoees 
CMPB dsc$b_dimct(R2), 
30039$ 


BNEQ 
MOVZWL dsc$y_le Longe (84) 
U1 Mad), dsc$l_u1_1(R2), R6, #0, RS 
ADDL dsc$a COtRS)T 
MOVW RO, (R5) 
BRW 506388 
30039$: INDEX R3, dsc$l_l 2), dsc$l_ul_2(R2), dsc$l_m2(R2), #0, R5 


R 
) 
‘4 dsc$l_u2_2(R2), R6, RS, RS 


$ 
30028$: CMPB gscéh dimct(R2), 
BNEQ 004 
MOVZWL dsc$w atengrh (fe 
INDEX 4, o c$l_l RICO Sasc$t_ut_1(R2), R6, #0, RS 
ADDL dsc$a_a0 OCR) 
2), dsc$t_u2_2(R2), dsc$l_m1(R2), #0, RS 


300418: INDEX oe ds$L_122(R 
5 Re), dsc$l_u1_2(R2), R6, R5, RS 


fe Tne we Te | ne | ne we) ee we ee we we ee we we ne ww we ne ww fw lo lo lolololololeloleleloleleleololololelelolelolel alate alo a) 
a ee ee ed dd od od od od = 2 dd 3 
MMMM MM MMMM MMMM MMMM MMMM hMmmhiMMmMmmM MM Mmm MMmnMimMmmMmimmMmmnmmmrmnmimnmmnenmrnrncrnicnienicviecviecricy fF 
DRE XAA AA AAA AAA AAA AA AAA AAA AAA AAA AAA AAA AAAAAAAAAAAAA AA AAAS 


. 10N Ww, D 
CMPB dsc$b_dtype(R2), #dsc$k_dtype_dsc 


sss ssn 


K 14 


BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 Pp 
T3t0 BASSMAT_INIT = Initialize a matrix Pa ets 1 13:39.98 BASRTL.SRCJBASMATINI.MAR; 1 oa 
| 1&6 BNEQ 30042$ 
1E6 MOVL 4(R2), RO 
1E6 MOVB dsc$b_dtype(RO), dtype(SP) 
1E6 MOVB sc$b_class(RO), class(SP) 
| 1E6 MOVAL data(SP), pointer (SP) 

166 CHa ds Spodimct crs), #1 
mc e 
1€6 NEQ $b6ce8 
1€6 PUSHL R3 
1€6 PUSHL R 
1&6 PUSHAL ye ue desc+8(SP) 
| OiE6 ALL 4 GIBASSSTORE_BFA 
| 1£6 RW 30633$ 
O1E6 300464$: PUSHL  R4 
01E6 PUSHL R3 
0166 PUSHL R2 
0O1E6 PUSHAL value_desc+12(SP) 
01E6 CALLS #4 GgASSSTORE _BFA 
O1E6 BRw 30033$ 
O1E6 30042$: CMPB sc$b_class(R2), #dsc$k_class_bfa 
0166 BNEQ 29 
O1E6 JSB GOBASSSTO_FA_W_RE 
O1E6 BRW 0033 
01E6 30029$: BBS #5, 10(R2), 300308 
O1E6 CMPB gsc$b dimct(R2), #1 
01E6 BNEQ 0043$ 
O1E6 MOVZWL dsc$w_length(R2), R6 
01E6 INDEX R3, dSc$l_l1_1(RO), dsc$l_u1_1(R2), R6, #0, RS 
01E6 ADDL dsc$a_a0(R2); R5 
01E6 MOVW 0, (RS 
0166 BRW 30633$ 
01E6 30043$: INDEX R3, dsc$l_l1_2(R2), dsc$l_ul_2(R2). dsc$l_m2(R2), #0, RS 
O1E6 MOVZWL dsc$w_lengthTR2), R6 
O1E6 INDEX R4, dSc$l_l2_2(RO), dsc$l_u2_2(R2), R6, RS, RS 
01E6 ADDL dsc$a_a0(R2)> R5 
O1E6 MOVW RO, (RS) 
0166 BRW 30633$ 
0166 30030$: CMPB gsc$b dimct(R2), #1 
O16 BNEQ 00458 
1€6 MOVZWL dsc$w_length(R2), R6 
O1E6 INDEX R4, dSc$L_L1_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
01E6 ADDL dsc$a_a0(R2)> RS 
O1E6 MOVW = RO,_-(R5) 
OIE BRW 30633$ 
166 30045$: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_m1(R2), #0, R5 
O1E6 MOVZWL gcSu_lengenthe? 
O1E6 INDEX R3, dSc$l_L1_2(R2), dsc$l_u1_2(R2), R6, RS, RS 
01E6 ADDL dsc$a_a0(R2)> RS 
Bice tt RO, (RS) 
18 O02 Al 91 O1E6 CMPB sc$b_dtype(R1), #dsc$k_dtype_dsc 
12 O1EA anen  SO0egS°e” _— 
50 04 A1 00 OTEC MOVL 4(R1), RO 
OE AE 8 AO 90 ba MOVB dsc$b_dtype(RO), dtype(SP) 
OF AE O03 AO 90 OF MOVB dsc$b class(RO), class(SP) 
10 AE AE bE 1FA MOVAL data(SP), pointer (SP) 
OC AE OA 8B 1FF MOV #10, str_len(SP) 


an 


BASSMAT_INIT 
heir = 


01 08 Al 

; 

14 Ag 
Q0000000°GF 0 
8 

ef 

1 

18 AE 
Q00000000°GF 04 

wy 

BF 8F 0 ag 
00000000 ' GF 


0 
3C OA Al 05 
01 08 


9 

O7A 

Al 

16 

55 61 

55 1C Al 18 Al ef 
54 10 Al 

64 50 

0059 

20 Al 1C Al 52 

54 00 

55s 61 

55 28 Al 24 Al 
54 10 Al 

64 50 

0039 

01 06 Al 

16 

55 61 

55 1C Al 181 3 
54 =~10 Al 

64 50 

001D 

28 Al 324 Al 53 

54 00 

55 61 

55 20 A1 IC Al 3 
54 10 Al 

64 50 


58 
0 


BASSMAT_INIT 
91 
6 
DD 0209 
DD 0208 
DF 0200 
Fe 0210 
31 021 
DD O21A 
DD Ogic 
DD O2IE 
DE 0220 
FB OO 
31 022A 
91 0220 
12 0332 
16 0234 
31 023A 
EO 0230 
91 0242 
12 0246 
3C 0248 
OA 0248 

0253 

CO 0254 
80 0258 
1 0258 
OA 025E 
0266 

OA 0368 
0573 

CO 027% 
BO 0278 
31 0278 
91 027E 
12 0282 
3C 0284 
OA 0287 
028F 

co 0290 
BO 0294 
31 0297 
OA 029A 
3c O3aG 
OA 02A7 
ose 

cO 0280 
BO 0284 
0287 

287 

0287 
0287 
0287 

D6 0287 
D1 0289 
14 02BC 


Initialize a matrix 


30048$: 
Pp 


30046$: 


30031$: 


30047$: 


30032$: 


30049$: 


300338: - 


CMPB 
BNEQ 
PUSHL 


INDEX 


L 14 


15-SEP-1984 23:44:09 AX/VMS Macro v04-00 Pa 
Fat at bs 91 93:39:98 BASRTL.SRCJBASMATINI.MAR;1 wi 
$b_dimct(R1), #1 
= se 
R 
R 


Wa eeases tone BFA 
3 6335 i 

R 

R 


R 
value _desc+12(SP) 
3 Gg ASSSTORE_BFA 


$ 
sc > class(R1), #dsc$k_class_bfa 
GBASSSTO_FA_W_RS 
00338 
#5, 10(R1), 30032$ 
gsc$e dimct(R1), #1 
00478 
dsc$w_length(R1), R5 
R2, dsc$l_l1_1(R1), dsc$l_u1_1(R1), RS, #0, R4 
dsc$a_a0(R1), R4 
RO, (R4) 
30033$ 
R2, dsc$l_l1_2(R1), dsc$l_u1_2(R1), dsc$l_m2(R1), #0, R4 


dsc$w_length(R1), R5 
R3, dSc$l_l2_2(R1), dsc$l_u2_2(R1), RS, R4, R4 


dsc$a_a0(R1), R4 

RO, (R4) 

30033$ 

g3¢$8 dimct(R1), #1 

0049$ 

dsc$w_length(R1), R5 

R3, dSc$l_l1_1(R1), dsc$l_u1_1(R1), RS, #0, R4 
dsc$a_a0(R1), R4 

RO, (R4) 


30033$ 
R3, dsc$l_l2_2(R1), dsc$l_u2_2(R1), dscSi_m1(R1), #0, R4 


dsc$w_length(R1), R5 
R2, dsc$l_l1_2(R1), dsc$l_u1_2(R1), RS, R4, RS 


dsc$a_a0(R1), R4 
RO, (R4) 


1 ; get next column 
1 3; see if Last column done 


M14 
BASSMAT_INIT 15-SEP-1984 9 VAX/VMS Macro v04-00 Pa 23 
' A310 BASSMAT_INIT = Initialize a matrix gnsep-19 4 13:39 9 BASRTL.SRCJBASMATINI.MAR;1 - (5) 


| ris 6 CG BF BRW LOOP_2ND_SUBW 3 no, continue inner Loop 
C1 3+ 
| C1 ; Have completed entire row. See if it was the last row. If not, 
0 3 ;_continue with next row. 
C1 P 
04 AE 06 02C1 2$: INCL Lower_bnd1 (SP) 3: get next row 
08 AE 04 at H 8 cS aga ower_bndi(SP), upper_bnd1(SP) ; see if last row done 
FFOS) 31 0 BRw LOOP_1ST_SUBW 3; no, continue outer loop 
04 ° 35 3$: RET : yes, finished 


Spinenenesnepneansioneniiteigumetapsematts aeneipineeanetamnait 


375 LONG: 


we SO NNN 
—PrPW OOO 


PMIPIPIPIPINIPINIPONINPININPINIPINININININININININININININININNININNINININININPININNIPNPINnrnonny 


Mrmr 


COOOSSCOOSOOCOCSCOCOCOOSOCOSSCOSOOOOOOSOOCOCOOC COCO OOCOCOCOOOOCOOOOOOOOOOOoO 


ecoess 


oo°o-cocUo 
coofro”go 


N 14 ; 
- Initialize a matrix 6- 
SBASSMAT_INIT L 


USAGE 


39 
3; Set up Limits 


“IE IDN ee 

HOVE constant(AP), =(SP) 
CVTILL constant(AP), -(SP) 
-ENDC 

“IF IDN L. D 

MOVL  SFSL_SAVE FP(FP), RO 
JSB G*BASSSSCALE_R1 
MULD2 RO, (SP) 

ENDC 


s@ 
; Allocate data and value_desc on the 
; one and two dimensions. 


CLRQ = =( SP) 

CLRQ = = (SP) 

CLRQ = = (SP) 

CMPB =: DSC$B_DIMCT(R10), #1 
BEQLU INIT_ONE_SUBL 

BGTRU INIT-TWO-SUBSL 

BRW ERR_ARGDONMAT 


2 

; There is onl 

; subscript a |. 
3 store routine. 


INIT_ONE_ SUBL: 
PUSHL 


1 subscript. 


1$: MOVL 


Make both u 
The second subscript wi 


el 
RO - RB destroyed by store routines 


R9 upper bound for 2nd subscript 
R10 pointer to arra Gente ‘eter 
R11 current value of 2nd subscript 


AX/VMS Macro V04-00 
BASRTL.SRCJBASMATINI.MAR;1 


; expand to long operations 


Page 24 
wie. 


for looping through all elements 


; data type is long 
3 move constant 
; data type is not long 


3; make constant same datatype 


3; if array 


stack. 


sis 
3 >=2 


rr 


3; aS array, save on stack 


is double 

3; pass FP to get scale 

get scale in RO & R1 

call a BLISS routine because 
the frame offsets are only 
defined for BLISS 

scale 


Sete Se Se te 


This applies to both 


; space for data 
; may be hfloat 
: space for value_desc 


; determine # of subscripts 


ub, go init 
ore 


go init 
subs, error 


r and lower bound for 2nd 
be passed to and ignored by the 


lst upper bound 

Ist lower bound 

not 0 or neg, do 2nd sub 
don't alter col 0 

dummy ang lower bound 
dummy 2nd upper bound 


eo --— -- ~— - - ~~ $$$ 


‘paste $MAT_INIT hiss i $EO- 138+ 3:58 +4 rth ong Macr 


BASSMAT_INIT = Initialize a matrix P-19 rte ese 2 


ov 
BASRTL.SRCIJBASMATINI MAR; 1 
BRB LOOP_2ND_SUBL i go loop 


) 
Dk 


0 AA DD 

C AA DD 

9 14 

6€ cP 
59 BAA D 
4 AA DD 


" There are 2 subscripts. Put the r bound for both subscripts on the 
3 se k and make sure that the lower ound for both subscripts will start 
i (do not alter row or col 0) 


INIT _TWO_SUBSL: 


PUSHL Gsc$t ut 21810) ; Ist upper bound 
PUSHL | i (R10) ; 1st lower bound 
BGTR ; not row 0 or neg, do cols 
MOVL #i, (SP) 3 start with row 
18: MOVL gsc $t ug 6 1819} Ro ; end upper bound 
PUSHL dsc$l_l2_2 (R10) ; end Byres 
03 14 BGTR LOOP_TST~SUBL ; not col oop 
6E 1 00 MOVL #i, TSP) 3 start oft col 1 
- 
; Loop through all the rows. Row and column upper and lower bounds have been 
B in it ialized on the stack. 
LOOP_1ST_SUBL: 
5B 6€ 00 MOVL Lower_bnd2(SP), R11 ; R11 has 2nd Lower bound 
:* 
: Loop through all the elements (columns) of the current row. Column lower 
; bound is initialized in R11. Column upper bound is on the stack. 
: Distinguish array by data type so that the correct store routine can be 
: called and the constant can be converted to the correct type. 
LOOP_2ND_SUBL : 
50 24 AE 00 MOVL constant_cvt(SP), RO ; put ora’ y into 


RO 
RO & R1 for double 
" When yet: by value, hfloat takes 4 words, aaa and double take 2 words, 
a 


i _and l other data types take 1 longword. 
IF IDN L. H 3; data type is hfloat 
MOVL R10, R ; pointer to array desc 
MOVL lower_bnd1(SP), R5 3 current row 
Rov R11, R6 : current column 
- IF IDN L. G ; data type is gfloat 
MOVL R10, R : pointer to array desc 
MOVL lower _bnd1(SP), R3 3 current row 
nov R11, R4 3 current column 
-IF 10N L. D ; data type is double 
MOVL R10, R : pointer to array desc 
MOVL lower_bnd1(SP), R3 : current row 
MOV R11, R4 ; current column 


SOOOSOOOCOCOOCOCOCOCCOCOOCOCOOCSO{BZIOOOCOCOCOCOCCOCSCCOCSCOSO COCO OOOOOOOOOOOOOOO 


AIAAIANANIAIAINAILARAIAIANIAI WAIANAE 6 AAAI IAIN 


kk A QO OO CODD OOOO FFF 


SPELL LLL LLL LLL LLL LES &FPQQOOOOCOCOCOCCOS 99999 9S FON MO DAAC OSCASOCOARS 


L 
a LFF ; all other data types 


— 


r- — . ee 
} 


“BASSMAT_INIT 
he iti BASSMAT_INIT 
aah B 
53 5B OD 
16 AE 50 0 


POPOPORIPINIPIPOPOPIPIPOPIPUPINPINPINPUNONOPoNoNoNnononony 


PoPoPoRoNoNoNnononononononononys 


COOOCOCOCOSOOOCOCOCOCOOOGCOOCOOC CO OOOOOCOCOOCOCOCSCOOCOCOOOOOOOOOOOOCOOOOOOOOoOO 


WIWNINIAINI AAA AAAI ANIA AIAN NNW ANIA WINN WNIAN AI 


Ronononononorfy 


8 
30061$: 
P 


30059$: 


30050$: 


30060$: 


30051$: 


30062$: 


= Initialize a matrix 


MOVL 
MO 


¢ 15 


"B$EP=1986 10:39:28 EBASHTL. SRCIBASRATINI MAR: 1 


R10, ; pointer to array desc 


Lover ayrat (se). R2 3; current row 


RO, data(SP) 


ION 
936 538 dtypecRs), #dsc$k_dtype_ dsc 


4(R4), RO 

dsc$b_ -dtype(RO), dtype(SP) 
dsc$b_class(R +’ class(SP) 
data(SP), pointer (SP) 
#10, str_len(SP) 

Hit dict (Ra), #1 


i ue_desc+8(SP) 
# gage rnes tone BFA 


R 

RG 

value _desc+12(SP) 
% G*BASSSTORE_BFA 


$ 
sc$b_class(R4), #dsc$k_class_bfa 
Spe $STO_FA_L_R8 
05 


#5, 10(R4), 30051$ 
gsc$be dimct(R4), #1 


dsc$w atenerh ne 
R5, dsc$l_l Tino, Sisc$t_ul_1(R4), R8, #0, R7 
ogc a 30 OCRG) 


Wo osae 


(R4 
4), RB 
(Ray, dsc$l_u2_2(R4), R8, R7, R7 


956 ob. dimct(R4), #1 


ge stErorn (ne 

, dsc$l Hai, Sisc$t_ut_1(R4), R8, #0, R7 
ww. 290° Stra) 
BOOsas 
R6, rH c$l_l2_2(R4) 
d cS *TengthtRs) a8 
R5, dSc$l_l1_2(R4), dsc$l_ul_2(R4), RB, R7, R7 


; current column 


dsc$l_ul_2(R4), dsc$l_m2(R4), 


dsc$l_u2_2(R4), dsc$l_m1(R4), 


3; store value in value_desc 
; store in array 


#0, R7 


#0, R7 


a 


-——-— nanan aiiepiiianiiclaaines 


| Laie INIT 


| 


Fo P=1984 9 
BASSMAT_INIT = Initialize a matrix SEP=1984 19:39 3 
dsc$a_a0(R4), R7 
RO, <R?) 


DN L, G 
sagas Pen? #dsc$k_dtype_dsc 


4(R2), RO 

dsc$b_dtype(R dtype(SP) 

dsc$b_ -dtype (RO) cl (ass (SP) 

ds a(SP), pointer (SP) 
str_len(SP) 


ist dimct(R2), #1 


R2 
value _desc+8(SP) 
EisSapsststone BFA 


30065$: PUSHL 
a3 


R2 
yet ue_desc+12(SP) 
“BASSSTORE BFA 


$ 
sc$b_class(R2), #dsc$k_class_bfa 
“BASSSTO_FA_L_R8 
05 


30052$: BBS #5, 10(R2), 30053$ 
CMPB d5¢ $b, dimct(R2), #1 


BNEQ 
MOVZWL dsc$u. le Lonerh<ae? R6 


R 
300638: CMPB 


ADDL dsc$a cOtRS) 7 R5 


MOVZWL ere o gh grorn (Re 
ADDL Te : “goth 


CGOOOOOCOCOSOOCOCOCOCOCOOOCOSOCOSOCOOOSOOSOOCSCOCOCCOSCOOCSCCOOOOSOOOOOOOOOOOCOCOO 


WWIWNIAAIAAINANIANAI AINA AIN NNN NINN NIAAA NANI AIA WINN NINA 


RIPQDPIPIPININPINPINYAINIPINYIDIPYPINYPINININPYDINININPYNINININININININYINIPIPINIPINIAPIPPIPIPIPINPIPIPORIPOPIPOPONIPNY 
RIP IPP PYININYPINDNIPYNIPNIPINPINNINIAINIAINININYANINININIPPNYINYIPINIPPIPINIPIPIPIPIPIPIPIPIPUPUPIPIPUPIPINININYD 
CWDoWorvVVIIVTIOVIVAO a3 Woe « as 
ar 4 cccczwrccc2a2s COo2z 3-00 
WMVEM-YNOVVErvYVoumvcccccamMmIg*"<o 
o === zr TOMVCcreqreos “rer 

P 4 ." “2 _ a 


IDN L. D 
CMPB dsc$b_dtype(R2), #dsc$k_dtype_dsc 


AX/VMS Macro v04-00 
BASRTL.SR ¢8 BASMATINI.MAR;1 


L1_1(R2), dsc$l_u1_1(R2), 


MOVL RO, (RS 
BRW 30658$ 
30064$: INDEX R353, dsc$l_l1_2(R2), dsc$l_ul_2(R2), 
MOVZWL dsc$w_lengthTR2), R6 
INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), 
ADDL SacSe a0(R2)> RS 
MOVL RO, (RS) 
BRW 30658$ 
300538: CMPB qacsb dimct(R2), 
BNEQ 00668 


INDEX R4, dsc$L “Hind, Sasc$t_ut_1(R2), 


MOVL 
BRW 658s 
30066$: INDEX aa dsc$l_l2_2(R2), dsc$l_u2_2(R2), 
MOVZWL Su. lengentRe) R6 
INDEX R3, dsc$L_L1_2(R2), dsc$l_ul_2(R2), 
L gache a 20(R2) RS 


R6, #0, RS 


dsc$l_m2(R2), #0, RS 
R6, RS, RS 


R6, #0, RS 


dsc$l_mi(R2), #0, RS 
R6, R5, 25 


P 27 
age cs 


) 


‘Sree pemetesen sane 
| 


ASSMAT_INIT 
het eee 


30069$: 
3 
3 
$3 
03 30067$: 
03 
03 
03 
032 30054$: 
032 
032 
032 
B35 
0322 
032 
032 
032 30068$: 
0322 
885 
03 
032 
0322 
032 30055$: 
03 
03 
03 
03 
03 
03 30070$: 
3 
3 
; 
18 O2 Al 91 O3 
41 12 03 8 
50 4 Al 4 
OE AE ; ae C 
OF AE A 90 1 
10 AE 4 43 6 
OC AE OA 8B B 


BASSMAT_INIT = Initialize a matrix 


30067 

dsett b 0 (RO), dtype( 
sc e a 

dsc$b “tl ess(R ); class (SP 

data(SP), pointer (SP) 


: cby Since tn, om 


SP) 
SP 


lue_desc+8(SP) 
yt BFA 


RS 
vel ue_desc+12(SP) 
TT athe BFA 


sc$b_class(R2), #dsc$k_class_bfa 
gp ass SSTO_FA_L_R8 


°° focr2), 3 9958 
dsc $be dimct (R2) . #1 


Ray dice Longe n (Re 
Aiiaby, asc$t_ut_1(R2), R6, #0, RS 

dsc$a OURO) R5 

Re) dsc$l_ul_2(R2), dsc$l_m2(R2), #0, RS 

Re), dsc$l_u2_2(R2), R6, RS, PS 


30 
gsc$be dimct(R2), #1 


dsc$w zlenarh (ne 
R4, déc$l_L Hind), Sasc$t_ut_1(R2), R6, #0, RS 


ence a 90K) 

oss 

ae dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_mi(R2), #0, RS 
dscSu_t LengthTR2), R6 

R sc$l L1_2(R2), dsc$l_u1_2(R2), R6, RS, RS 

dsc$a_ af (R2)> RS 


gsc$be dtype(R1), #dsc$k_dtype_dsc 


4(R1), RO 

dsc$b “dtype(RO 
dsc$b- class(RO 
data(SP), poin 


», d 

a6 € 

A, 
#10, str_len(SP) 


BSE Shs Toideisa BKENTS Geese ORO nancy 


—— 
BASSMAT_INIT 
he tte 


| 


01 0B Al 
11 
34 


VM 
00000000°GF 0 
00 


woo, 


18 AE 
00000000 ° GF ge 


y A 
BF 8F 05 Al 
00000000 ° GF 
3C OA AT 05 
01 08 
1C Al = 18 Al 
So 


= 
o oO 
o 


20 Al 1C 


ae £ 


28 Al = 


o 
a 


mum 
= 


1c Al 18 


“ 
= 
—_ 
oO 


8 — 
g 23 g 
WP MNNAON MNP NVA — WWE IS OVInv Bb WF — PONOO 


28 Al 4 


x2 £ 


20 Al 1¢ 
54 


O- FN OWID OO FW OB — OO FW" ON OO] FN AS UIP TO 


o 

> 
— 
o 


BASSMAT_INIT 


91 
12 
DD 
DD 
DF 
FB 
31 
DD 
DD 


on OW OWOOF OWOWOOF OW OWOF OW—OMNW——OWTO?JO 
ro FOO PONM——COoO FO FCO FPON—0O-—en——OT"SO 


oo 


-—-Ooo 
noo 


3F 


OOCCCCCCOCOO 


AANA AIANIANAIAIN AIAN NN WW 


PS YS SOOO O00 9 INIA AA NN 
NEM NEO MNES NMOAOM OP MO POWOWO ONG 


SOOOCOSOCOOCOOCOCOCOCOOCOCCOCOSOCOOOCOOCCOCOCCOCOCOCOCOCOCOCOOOOOOOO 


- Initialize a matrix 


30073$: 


30071$: 


30056$: B 


30072$: 


30057$: 


30074$: 


30058$: 


CMPB 
BNEQ 
PUSHL 


15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 
6-SEP-1984 95:36:58 BASRTL.SRCJBASMATINI.MAR;1 
g Ep dict (RI), #1 
i 
a 


Ha gteRSESiSnecara 
S688 prt, 

R3 ~ 

R we 


R — 
value_desc+12(SP) ~~ 
a4 “BASSSTORE_BFA . 


$b class(R1), #dscSk_class.bfa 
“BASSSTO_FA_L_R8 


#5, 10(R1), 30057$ 
gsc$b dimct(R1), #1 
0728 


dsc$w_length(R1), R5 
R2, dsc$l_l1_1(R1), 


dsc$a_a0(R1), R4 
RO, (R4) 


dsc$l_ul_1(R1), R5, #0, R4 


30058$ 
R2, dsc$l_l1_2(R1), dsc$l_ul_2(R1), dsc$l_m2(R1), #0, R4 


dsc$w_length(R1), R5 
R3, dSc$l_l2_2(R1), dsc$l_u2_2(R1), RS, R4, RO 


dsc$a_a0(R1), R4 
RO, (R4) 


58$ 
c$b_dimct(R1), #1 
743 


c$w_length(R1), R5 
, dsc$l_l1_1(R1), 


c$a_a0(R1), R4 
(R4) 


8$ 
- Gsc$l_l2_2(R1), dsc$l_u2_2(R1), dsc$i_mi(R1), #0, R4 


$Sw_length(R1), R5 
dSc$t_l1_2(R1), 


$a_a0(R1), R4 
(R4) 


dsc$l_u1_1(R1), R5, #0, R4 


_ oO 


dsc$l_u1_2(R1), R5, R4, RS 


ov Mme WOOY WY ovo 
= oo mo 


2a Da Wwawa Dawaw 
_ oO 


; get next column 
; see if Last column done 


Pa 2 
ge ( 


9 
5) 


espe INIT 


FFI3 


04 AE 
08 AE 04 05 


0 
FFO 


BASSMAT_INIT 
31 O3FA 
FD 
FD 
FD 
FD 
FD 
FD 
D6 O3FD 
D1 9400 

14 040 

31 0407 
GOA 
04 040A 


6 15 


= Initialize a matrix 


1 


5-SEP=19 
6-SEP-19 


BRw LOOP_2ND_SUBL 


2@ 


; Have completed entire row. 
; continue with next row. 


2$: INCL Lower_bnd1 (SP) 


3$: RET 


aya ower_bnd1(SP), 
BRW LOOP_1ST_SUBL 


Be {0:39 


28 


AX/VMS Macro v04-00 
BASRTL.SRCJBASMATINI .MAR; 1 


3 no, continue inner loop 


upper _bnd1 (SP) 


See if it was the last row. If not, 


; get next row 
; see if last row done 


3 no, continue outer Loop 


: yes, finished 


tees" 


—_—_—_—_----------- ee a 
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beat BASSMAT_INIT = Initialize a matrix Fae isets 93:39:98 BASRTL.SRCJBASMATINI.MAR;1 . (5) 

ree 377 FLOAT: S$BASSMAT_INIT F 3 expand to float operations 

408 3+ 

408 3 REGISTER USAGE 

0408 : RO-R Soctreyes by store routines 

408 3 g upper bound for 2nd subscript 

408 3 R10 pointer to array descriptor 

408 3 R11 current value of 2nd subscript 


54 
; Set up Limits for looping through all elements 


| 
0408 
0408 
0408 
0408 
0408 
0408 
0408 IF IDN Pe 
0408 elFT ; data type is long 
0408 MOVL constant(AP), =-(SP) : move constant 
0408  1FF ; data type is not long 
7E O08 AC GE 0408 CVTILF constant(AP), -(SP) ; make constant same datatype 
040F > aS array, save on stack 
040F -ENDC 
040F If IDN F, D : if array is double 
040F MOVL SFSL_SAVE_FP(FP), RO 3 pass FP to get scale 
040F $B G*BASSS$SCALE_R1 3; get scale in RO & R1 
040F ; call a BLISS routine because 
040F ; the frame offsets are only 
040F ; defined for BLISS 
040F MULD2 RO, (SP) ; scale 
040F -ENDC 
040F 
040F 3* 
040F ; Allocate data and value_desc on the stack. This applies to both 
040F ; one and two dimensions. 
040F 
040F 
7E 7C Q40F CLRQ -(SP) : space for data 
7E 7C 0411 CLRQ -(SP) 3; may be hfloat 
7c.)|hUme gels CLRQ -(SP) ; space for value_desc 
01 0B AA 91 0415 CMPB DSC$B_DIMCT(R10), #1 ; determine # of subscripts 
05 13 0419 BEQLU INIT_ONE_SUBF :; 1 sub, go init | 
15 1A zeie BGTRU INIT_TWO_SUBSF 3; >=2 subs, go init 
FC2A 31 0410 BRW ERR_ARGDONMAT ; 6 subs, error 
0420 3+ 
8 ; There is only 1 subscript. Make both yerer and lower bound for 2nd 
0420 : subscript a 1. The second subscript will be passed to and ignored by the 
0420 3; store routine. 
0420 3° 
3s 0 
420 INIT_ONE_SUBF : 
1C AA DD 04 4 PUSHL dsc$l_u1_1(R10) : Ist upper bound 
18 AA DD 04 PUSHL dsc$l_l1_1(R10) ; Ist lower bound 
03 14 04 $ GTR 1$ ; not 0 or neg, do 2nd sub 
6E 4 DO 04 MOVL #i, (SP) : don't alter col 0 
59 1 00 oe 1$: MOVL #1, R9 3; dummy one lower bound 
01 DD 042E PUSHL #1 : dummy 2nd upper bound 


—_—_——_—_— ee CO ——— —$—$—$ —__—___ a — 
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| 1-010 BASSMAT_INIT = Initialize a matrix 66-SEP-1984 3339598 BASRTL.SRCIJBASMATINI.MAR;1 . is 
| 1A 11 ; BRB LOOP _2ND_SUBF : go loop 
4 ge 
4 ; There are 2 subscripts. Put the ig ood bound for both subscripts on the 
4 ; stack and make sure that the lower bound for both subscripts will start 
bd ; at 1 (do not alter row or col 0) 
| 04 
04 INIT_TWO_SUBSF : 
20 AA DD 04 PUSHL Gsc$l_ul 2(R10) ; 1st upper bound 
1C AA DD 04 PUSHL dsc$l~L1~2(R10) : 1st lower bound 
3 16 0438 BGTR 1$ ; not row 0 or neg. do cols 
6—E 01 DO 043A MOVL #1, (SP) - 3 start with row 
59 28 AA 00 0430 1$: MOV dsc$t ug 81h 10}. Rd ; 2nd upper bound 
24 AA DD 0441 PUSHL dsc$l_l2_2(R10) ; 2nd lower bound 
03 14 0444 BGTR  LOOP_TST~SUBF ; not col 0, go Loop 
6— 01 00 ert MOVL #i, TSP) 3; start with col 1 
0449 3+ 
0449 ; Loop through all the rows. Row and column upper and lower bounds have been 
0449 ; initialized on the stack. 
0449 i- 
0449 
0449 LOOP_1ST_SUBF : 
5B 6E€ 00 gee? MOVL lLower_bnd2(SP), R11 ; R11 has 2nd lower bound 
044C 3¢ 
044¢ ; Loop through all the elements (columns) of the current row. Column lower 
044C ; bound is initialized in R11. Column upper bound is on the stack. 
044C€ ; Distinguish array by data type so that the correct store routine can be 
ore: ; called and the constant can be converted to the correct type. 
044C€ 
ore: LOOP_2ND_SUBF : 
50 24 AE 50 044C MOVF constant_cvt(SP), RO 3; put constant into RO 
Be36 a ; RO & R1 for double 
0450 3; When eeeses by value, hfloat takes 4 words, gfloat and double take 2 words, 
be8o ; and all other data types take 1 longword. 
0450 ; 
0450 IF IDN F, H ; data type is hfloat 
0450 MOVL R10, R4 3 pointer to array desc 
0450 MOVL lLower_bnd1(SP), R5 3; current row 
0450 MOVL R11, R6 3 current column 
0450 ~IFF 
0450 IF IDN F, G ; data type is gfloat 
0450 MOVL R10, R2 3 pointer to array desc 
0450 MOVL lLower_bnd1(SP), R3 3 current row 
0450 MOVL R11, R4 3 current column 
0450 ~ 1FF 
0450 If IDN F, D ; data type is double 
0450 MOVL R10, R2 3 pointer to array desc 
0450 MOVL lower_bnd1(SP), R3 3 current row 
0450 MOVL R11, R4 3 current column 
0450 LFF ; all other data types 
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BASSMAT_INIT = Initialize a matrix met} 93:39:98 BASRTL.SRCIJBASMATINI.MAR;1 . 3, 
9) 4 MOVL R10, R1 3; pointer to array desc 
4 c38 MOVL lower rr. R2 3 current row , 
DO 045 MOVL R11, R 3 current column 

45A -ENDC 

45A ~ENDC 

45A -ENDC 

50 065A MOVF RO, data(SP) 3; store value in value_desc 

Be2e STORE F ; store in array 

bese chee sesh pas tra) #dsc$k_d d 

s e , dsc type_dsc 

O45E pnea = SogBes — 

Beee MOVL 4(R4), RO 

45E MOVB dsc$b “dtype(RO), dtype(SP) 

045E MOVB dsc$b_class(RO), class(SP) 

045E MOVAL data(SP), pointer (SP) 

045E MOVW #10, str_len(SP) 

045€ CMPB dsc $b dimet(R4), #1 

045E BNEQ 0868 

045E PUSHL 

045E PUSHL R4 

045E PUSHAL value desc+8(SP) 

045E CALLS #3 GGASSSTORE PBFA 

045€ BRW 30683 
045— 30086$: PUSHL R6 
045E PUSHL RS 
045E PUSHL RG 
045E PUSHAL value_desc+12(SP) 

045E CALLS #4,G*BASS$STORE_BFA 
045 BRW 0683s 
045E 30084$: CMPB dsc$b_class(R4), M#dsc$k_class_bfa 
045E BNEQ 30075 
045E JSB G*BASSSTO_FA_F_R8& 
045E BRW 30083$ 
045E 30075$: BBS #5, 10(R4), 30076$ 
045E CMPB dsc$b_dimct(R4), #1 
045E BNEQ 300858 
045E MOVZWL dsc$w ztengeh(h 
045E INDEX R5, dSc$L_L Tray” Sisc$t_ut_1(R4), R8, #0, R7 
045E ADOL dsc$a_a0( Re)7 R7 
045E MOVF (R7) 
045€ BRW 30683$ 
045E 30085$: INDEX R5, dsc$l_l1_2(R4), dsc$l_ul_2(R4), dseSl_m2(R4), #0, R7 
045E MOVZWL dsc$w_lengthTR4), RB 
045 INDEX 6, dSc$L_l2_2(R4), dsc$l_u2_2(R4), RB, R7, R7 
045E ADDL dsc$a_a0(R4)> R7 
045E MOVF 0, (R7) 
045€ BRW 30683$ 

045E 30076$: CMPB sc$b_dimct(R4), #1 

045€ BNEQ 0087$ 

045E MOVZWL dsc$w ztength(h 

045€ INDEX R6, 305 $l Trey Sasc$t_ul_1(R4), R8, #0, R7 

045E ADDL dsc a 230( Stee) R7 

045E MOVF 

45E BRW 9 ass 

45E 30087$: INDEX oe dsc$l_l2_2(R4), dsc$l_u2_2(R4), dscS$l_m1(R4), #0, R7 
45 MOVZWL d5c$y_ LengthTR4), RB 

45€ INDEX d5c$l_(1_2(R4), dsc$l_ul_2(R4), RB, R7, R7 
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ADDL dsc$a_a0(R4), R7 
RO. CR?) 


. IDN F, G 
CMPB 93 cst. dtype(R2), #dsc$k_dtype_dsc 


.! 

E 

E 

E 

E 

: 

E MOVL 4(R2), RO 

E MOVB dsc$b =dtype RO), dtype 
E MOVB dsc$b_class(RO), class 
E MOVAL ds a(SP), pointer (SP) 
E MOVW #1 str_len(SP) 

CMPB 3 $b dimct(R2), #1 

E 8 366908 

E 

E 

E 

E 

E 

E 

E 

€ 


zw 
™~m 


PUSHL 
PUSHAL value _desc+8(SP) 
CALLS #3 Gg gASSSTORE _BFA 
BRW 30683 

30090$: PUSHL R4 
PUSHL R3 


R2 
PUSHAL value _desc+12(SP) 
CALLS +3 GGASSSTORE _ BFA 


B 
30088$: CMPB dsc$b_class(R2), #dsc$k_class_bfa 
JSB GABASSSTO_FA_F _R8 
008 


30077$: BBS #5, 10(R2), zeros 
CMPB dsc$b_dimct(R2), 
300898 


BNEQ 
MOVZWL dsc$w zlenarh (he 

INDEX R3, dsc$l_l mitt Sasc$t_ut_1(R2), R6, #0, RS 
ADDL dsc$a_a0 Sted) RS 


MOVF RO ) 
BRW 306838 
30089$: INDEX R3, dsc$l_l1 2(R2) , dsc$l_ul_2(R2), dsc$l_m2(R2), #0, R5 
MOVZWL dsc$w { ngthTR2) 
R l BRS). dsc$l_u2_2(R2), R6, RS, RS 
ADDL dsc$a - (R2)7 R5 
MOVF RO, (RS 
BRW 306838 
30078$: CMPB gaceb dimct(R2), 
BNEQ 0091 
MOVZWL + oe gignarh (ne 
INDEX R4, dSc$ Tins), Sasc$t_ut_1(R2), R6, #0, RS 
ADDL dscs a 9 g0tR2)7 
MOVE 
BRW 3068s 
30091$: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dscSl_m1(R2), #0, RS 
MOVZ2WL dsc$w LengthtR2) R6 
INDEX R3, dSc$L_L1_2(R2), dsc$l_ul_2(R2), R6, RS, RS 
ADDL dscSa a0(R2)> RS 


MOVF RO, (RS) 


SOOOCOCOCSOOCOOSOOSOSOOSCOOSOOOOSOOOSOSOSOOOOCOCOOCOSSoO oO ODOOOOOOCOCOOCOCOO 


. IDN F, D 
CMPB dsc$b_dtype(R2), #dsc$k_dtype_dsc 


- 


| BASSMAT_INIT 
1-010 


BASSMAT_INIT 


wr 
m 


FSS Se oe oe et ot et et et et et et et et ek et ek ek ek ee ee ee ee ee ee ee eee ee ae 
iY be’ | al “al “al ah AL Ah Ab Ab Ah Ab Ab Ab Ab Ab Ab Ab Ab Ab db dh sb Ab db Ab sb sh ah sb sb sb abv ah ahah shal slval val eal alval eal alvalvalvaleaivalealvaivalvaleal 
NINO 0 ERO MM MMM MMMM MMM MMMM MM MMMM MM MMMMMmMmMmMmmmMmmmmmmmmmmmmmmmern 


COOSOOOCOCOOOSOSOSOSOOOSOOSOOSOSOSOOOOSOSOSOOSOSOOSOSOOOOOOOOOOOOOOCOCOOO: 


> 
m 
OO 
= = 
>Prrrs 
o—— 
womowoo°o-o 
omooon— 


= Initialize a matrix 


30094$: 


30092$: 


30079$: 


30093$: 


30080$: 


30095$: 
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Pat ets 93:39:58 BASRTL.SRCIJBASMATINI.MAR; 1 

BNEQ 30092$ 

MOVL 4(R2), RO 

MOVB dsc$b_dtype(RO), dtype(SP) 

MOVB dsc$b_class(RO), class(SP) 

MOVAL data(SP), pointer (SP) 

MOV 1 eit 

CMPB gsc $b dimct(R2), #1 

BNEQ 0094$ 

PUSHL 83 

PUSHL v3 

PUSHAL lue_desc+8(SP) 

ALLS 3 G*BASSSTORE_ BFA 

RW 306 

PUSHL 

PUSHL Rg 

PUSHL oF 

PUSHAL value _desc+12(SP) 

CALLS “BASSSTORE_BFA 

BRW $6 3$ 

gies dsc$b_class(R2), #dsc$k_class_bfa 

JSB $88 SSTO_FA_F_R8 
BRw 00 
BBS #5, 10(R2), s9080s 

CMPB dsc$b dimct(R2), 
BNEQ 300938 
MOVZWL dscS$w ztenatn (82) 

INDEX R3, dsc ind), SascSt_ut_1(R2), R6, #0, RS 
ADDL dsc$a_a0 Sted) 
MOVF RO, (RS 
BRW 30683$ 

INDEX R53, dsc$l_l1_2(R2), dsc$l_ul_2(R2), dsc$l_m2(R2), #0, RS 
MOVZWL dsc$u_LengehtRe) 

INDEX R4, dSc$l_l2_2(R2), dsc$l_u2_2(R2), R6, RS, RS 
ADOL dsc$a_a0(R2)> RS 
MOVF RO, (R5) 
BRW 30683$ 

CMPB qscSbe dimct(R2), #1 
BNEQ 
MOVZWL dsc$w slgrogn (Re 

INDEX R4, dSc$L Athy, Sasc$t_ut_1(R2), R6, #0, RS 
ADDL dsc$a_a0 Str) 
MOVF RO, (RS) 
BRW 50683 

INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_mi(R2), #0, RS 
MOVZWL dsc$w glendentig? 

INDEX R3, dSc$l_L1_2(R2), dsc$l_u1_2(R2), R6, RS, RS 
ADDL Gace COtRD)T RS 
a hpi 

CMPB ssp git ypetRt). #dsc$k_dtype_dsc 
BNEQ $369 
MOVL ice os 
MOVB dscsb “dtype(RO), dtype(SP) 
MOVB dsc$b-class(RO), class(SP) 
MOVAL data(SP), pointer (SP) 

OVW #10, str_len(SP) 
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; 10 BASSMAT_INIT = Initialize a matrix 6-SEP-1984 10:39 729: 3 BASRTL.S REI8 BASMATINI.MAR; 1 . , 
01 OB Al 91 478 CMPB $b_dimct(R1), #1 
11 12 067F BNEQ ; 6588 
26 DD 04 } PUSHL 
14 AE ODF eB PUSHAL of desc+B(SP) 
ue_desc+ 
00000000 ' GF 08 FB 8 8 CALLS Beg hSSS TORE. BFA 
0099 31 O48F BRW 360 
5 DD 0492 30098$: PUSHL 
52. DD «(0494 PUSHL R2 
18 AE DF 0498 PUSHAL val desc+12(SP) 
value desc+ 
00000000 ° GF os Fe ong — $3 “BASSSTORE_BFA 
BF 8F O35 Al 91 Q4A 30096$: CMPB sc$b_class(R1), Mdsc$k_class_bfa 
09 12 OQ4AA BNEQ 1 
Q00000000'GF 16 O4AC JSB gi BAgssto. FA_F_R8 
O7A 31 048 BRW 3$ 
3C OA Al =605—SsCiEOs«048 30081$: BBS #5, 10(R1), 30082$ 
01 Al 91 O4BA CMPB dsc$b dimet(R1), #1 
16 12 O4BE BNEQ 30097$ 
55 61 3C 04C0 MOVZWL dsc$w_length(R1 
00 55 1C Al 18 Al 32 0A Q4cs INDEX R2, dSc$l_L1 mith > asc$l_ut_1(R1), RS, #0, R4 
54 10 Al CO O4CC ADOL dsc$a_a0(R1), R4 
64 50 50 0400 MOVF 
0059 31 04D3 BRwW 30083$ 
18 Al 20 Al 1C¢ rH 3 OA ot 30097$: INDEX R2, dsc$l_l1_2(R1), Pate ct tat dsc$l_m2(R1), #0, R4 
55 61 3C O4E0 MOVZWL dsc$w_length(R1) 
54 55 28 Al 26 Al 33 0A Que 5 INDEX R3, dSc$l_l2_ sei > gse$t_u2_2(R1), RS, R4, RO 
54 10 Al CO OQ4EC ADDL dsc$a_a0(R1), R 
64 50 50 O4FO MOVF 
0039 31 O4F3 BRW 306838 
01 0B Al 91 O4F6 30082$: CMPB dsc$b_dimct(R1), #1 
16 12 O4FA BNEQ 300998 
55 61 3C O4FC MOVZWL dsc$w_length(R1 
00 8655 1C Al 18 Al 3 OA baht INDEX R3, dSc$l_L1 wate > gseSt_ut_1(R1), RS, #0, R4 
54 10 A1 CO 0508 ADOL dsc$a_a0(R1), R4 
66 50 50 050C¢ MOVF RO, (R4) 
001D 31 050F BRW 306838 
14 Al 28 Al 24 rH 33 OA Bate 30099$: INDEX R3, dsc$l_l2_2(R1), bens dsc$i_m1(R1), #0, R4 
se 2 ae MOVZWL dsc$w_length(R1) 
54 55 20 a1 1C Al 32 OA OiF R2, dsc$l_L1 i. > asc$t_ul_2(R1), RS, R4, RO 
54 10A1 (C0 B 8 ADOL dsc$a_a0(R1), R 
664 50 50 052C¢ MOVF RO, (R4) 
052F -ENDC 
052F ~ENDC 
052F ~ENDC 
Be : 30083$: 
5B 06 O52F INCL R11 ; get next column 
59 65 D1 0531 CMPL R11, R9 ; See if Last column done 
0 14 0534 BGTR 23 


ED EEE TS PEE SN nSin Le A ie SRL ceed eo 
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1-010 BASSMAT_INIT = Initialize a matrix 6-SEP=19 0:2 BASRTL.SRCIJBASMATINI .MAR; 1 (5) 
FFI3) 31 3 $ BRW LOOP _2ND_SUBF 3 no, continue inner loop 
539 3+ 
Nf 9 ; Have completed entire row. See if it was the last row. If not, 
03 2 : _cont inue with next row. 
338 #i 
04 AE D6 0539 2s: INCL Lower_bnd1 (SP) 3 get next row 
08 AE 04 Ag H B276 gore Lower_bnd1(SP), upper_bnd1(SP) ; see if last row done 
FFOS) = 31 8262 BRW LOOP_1ST_SUBF 3 no, continue outer loop 
04 0546 3$: RET : yes, finished 
0547 


“BASSMAT_INIT 
eey-™ 


| 


15-SEP-19 744: AX/VMS Macro v04-00 
BASSMAT_INIT = Initialize a matrix 6-S pa} 986 13:59:98 EBASRTL. SAC IBASMAT INI MAR: 1 
; 379 DOUBLE: SBASSMAT_INIT D i expand to double operations 
47 3+ 
47 3 REGISTER USAGE 
47 : RO = RB destroyed by store routines 
47 ; rf bound for 2nd subscript 
47 : R1 pointer to ort ex gence peter 
ri 4 : R1 current value of 2nd subscript 
47 
47 i+ 
23) ; Set up Limits for looping through all elements 
547 
3) TFT _ ~s d is t 
" : data type is 
547 MOVL corstant(AP), =< (SP) ; move constant _ 
547 o1FF ; data type is not long 
7E OB AC 6E 0547 CVTLD constant(AP), -(SP) i make constant same datatype 
278 emt 3 aS array, s2ve on stack 
548 Riad IDN Dd. D ; if array is double 
50 oe AD 00 0548 MOVL SFSL_SAVE_FPC(FP), RO i pass FP to get scale 
‘GF 16 O54F JSB G*BASSS$SCALE_R1 : get scale in RO & &1 
0555 : call @ BLISS reutine because 
555 3 the ‘rame offsets are only 
222 3 defined for BLISS 
6— 50 64 055 MULD2 RO, (SP) 3 scale 
55 -ENDC 
oa 
55 ; Allocate data and value_desc on the stack. This applies to both 
22 ; one and two dimensions. 
55 F 
m2. for CLRQ -(SP) 3 space for data 
7E 7C QSSA CLRQ -(SP) i omay oat 
, ae 4 226 CLRQ -(SP) ; space for value_desc 
01 OB AA 91 226 CMPB DSC$B_DIMCT(R10), #1 3; determine # of subscripts 
05 13 056 BEQLU INIT_ONE_SUBD 71 sub. go init 
15 1A 0564 BGTRU INIT TWO SUBSD ; >=2 subs, go init 
FAE1 31 366 BRW ERR_ARGDONMAT ; 6 subs, error 
569 3¢ 
569 3; There is only 1 subscript. Make both yp er and lower bound for 2nd 
569 ; subscript a 1. The second subscript will be passed to and ignored by the 
569 3 store routine. 
569 i- 
569 
569 INIT_ONE_ SUBD: 
1¢ AA DD 0569 PUSHL qsc$t ul (R19) ; Ist upper bound 
18 AA DD 056C PUSHL dsc$l_l1_1(R10) : Ist Lower bound 
3 (14 4 BGTR 1$ : not 0 or neg, do 2nd sub 
$f 1 4 571 MOVL #i, is) 3; don't alter col 0 
a 574 1$: MOVL #1, R ; dummy dng lower bound 
01 DD 0577 PUSHL #1 ; dummy 2nd upper bound 


ee 


r- 


C1 


BASSMAT_INIT 15-SEP=19 rhe: AX/VMS Macro v04-00 p 39 
S010 BASSMAT_INIT = Initialize a matrix 5-3E b= 382 15139.98 BASRTL.SRCJBASMATINI .MAR;1 rs (5) 
1A =611 Ht 3e8 LOOP_2ND_ SUBD i: go loop 
78 3* 
| 78 3; There are 2 subscripts. Put the upper bound for both subscripts on the 
| 78 3; stack and make sure that the lower bound for both subscripts will start 
78 ; at 1 (do not alter row or col 0) 
578 i- 
78 
78 INIT_TWO_SUBSD: 
20 AA DD 298 PUSHL Gsc$t ul gino) 3 1st upper bound 
C AA DD 7e PUSHL dsc$l_l1_2(R10) i 1st lower bound 
05 14 ; } BGTR 1$ ; not row 0 or neg. do cols 
6F 1 +4 MOVL #i, (SP) 3 start with row 
59 sf AA OD 586 1$: MOVL gsc Bt ugg (R19) RO ; 2nd upper bound 
4 AA DD O58A PUSHL dsc$l_l2_2(R10) ; end lower bound 
03 14 058d BGTR LOOP_ TST" SUBD ; not col 0, go Loop 
6— 01 00 ge MOVL #1, TSP) 3 start with col 1 
59 if 
59 3; Loop corous all the rows. Row and column upper and lower bounds have been 
23 3; initialized on the stack. 
059 E 
329 LOOP_1ST SUBD: 
5B 6E 00 B32 ROVL Lower_bnd2(SP), R11 ; R11 has 2nd lower bound 
595 3+ 
9898 ; Loop through all the elements (columns) of the current row. Column lower 
0595 3; bound is initialized in R11. Column upper bound is on the stack. 
0595 ; Distinguish array by data type so that the correct store routine can be 
b208 3 called and the constant can be converted to the correct type. 
0595 : 
0999 LOOP_2ND_SUBD: 
50 24 AE 70 0595 MOVD constant_cvt(SP), RO 3 put constant into RO 
3208 ae : RO &R1 for double 
0599 > When passed by value, hfloat takes 4 words, gfloat and double take 2 words, 
0398 3; and a!! other data types take 1 longword. 
599 P 
599 If IDN D. H : data type is hfloat 
599 MOVL R10, R 3; pointer to array desc 
599 MOVL lLower_bnd1(SP), R5 3 current row 
23 Rov R11, R6 3; current column 
599 “IF IDN 0. G ; data type is gfloat 
599 MOVL R10, R : pointer to array desc 
599 MOVL lower_bnd1(SP), R3 3 current row 
444 vat R11, R4 3 current column 
599 “IF 1DN Dd. D : data type is double 
599 MOVL R10, R2 3 pointer to array desc 
59C MOVL lLower_bnd1(SP), R3 : current row : 
54 aM MOVL R11, R4 3: current column 
5A .1FF : all other data types 


— — . = _— —— —— —E 
; 
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 BASSMAT_INIT 15-SEP-1984 23:44:09 X/VMS Macro v04-00 P 4 
ett BASSMAT_INIT = Initialize @ matrix ase TSBs $3:55:98 PBNENTe eesGatearsar.man:1 2% 48, 
A MOVL R10, R1 3; pointer to array desc 
A MOVL lower pret). R2 3 current row 
A MOVL rRi1, R 3 current column 
A eENDC 
A ~ENDC 
A -ENDC 
14AE 50 70 A MOVD RO, data(SP) 3 store value in value_desc 
ant sine Ton ., 3; store in array 
SA7 CMPB ts dtypecRs), #dsc$k_dtype_dsc 
A7 BNEQ ase 53s 
A7 MOVL 4(R4), RO 
A? MOVB dsc$b “dtype(RO), dtype(SP) 
5A7 MOVB dsc$b_class(RO), class(SP) 
MOVAL da atSP). pointer (SP) 
MOVW #10, str_len(SP) 
CMPB dsc fb dimct(R4), #1 
BNEQ 01118 
PUSHL 5 


PUSHAL value desc+8(SP) 


CALLS GB AGASSSTORE _BFA 
BRW 43 6° 

30111$: PUSHL R 
PUSHL R 
PUSHL R4 
PUSHAL vot ue_desc+12(SP) 
CALLS G*BASSSTORE_BFA 
BRW $6 es 

30109$: we sc$b_class(R4), #dsc$k_class_bfa 
JSB “BASSSTO_FA_D_R8 
BRwW 10 


30100$: BBS #5, 10(R4), 301018 
CMPB Sbii0s dimct(R4), #1 


BNEQ 
MOVZWL HS hee be Longe h (at 
INDEX Hind, Sasc$t_ut_1(R4), R8, #0, R7 
ADOL dsc$a At (Ra) R7 
MOVD RO ) 
BRW 30108 
301108: INDEX R5, dsc$l_l1_2(R4), dsc$l_ul_2(R4), dsc$l_m2(R4), #0, R7 
MOVZWL dsc$w_lengthTR4), RB 
INDEX R6, dSc$L_(2_2(R4), dsc$l_u2_2(R4), RB, R7, R7 
ADDL dsc$a_a0(R4)> R7 
MOVD 0, (R7) 
BRW 30108$ 
301018: CMPB gscSbe dimct(R4), #1 
BNEQ 


MOVZWL dsc$w gignarn (hs 
INDEX as $55 40(Rt {h. Hiab, Sasc$t_ut_1(R4), R8, #0, R7 


oss 
30112$: INDEX R6, dsc$l_l2_2(R 
MOVZWL dsc$w fr ther 
s - 


4 gg ide Stu2_2(R4), dsc$l_m1(R4), #0, R7 
4), dsc$l_u1_2(R4), RB, R7, R7 


SR ee ee eee wales ah ah ah eh th eh hb bh db eb eh ab dh ah ah ah ah al ad al al ala alee ew) 
PPrrrrrrrrrrrrr rr rr rrrrrrrrrrrrrrrrrrrrr?r?r>r>r 
Sa Da i ia Di Bie Bit Bi Bi BB i De Da Bi te De DD De BD te Dt tt te tt be 


‘ re — = 
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Snat INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 Pp 41 
Wt BASSMAT_INIT = Initialize a matrix pat iott sy 18:39:98 BASRTL. SRC ti8 BASMATINI.MAR; 1 — (5) 
A7 ADDL dsc$a_a0(R4), R7 

A? MOVD RO, CR?) 
Ar 1FF 
aN thee ons av Fa2), #dsc$k_dtype_d 
c e sc e Ggsc 
| SA7 BNEQ i 8s re a 
Sa7 MOVL GRe) 8 
SA7 MOVB dsc$b “seveeth ) dtype(S 
SA7 MOVB dsc$b_class(RO), class(SP) 
SA7 MOVAL de a(SP), pointer (SP) 
SA7 MOVW str_len 
05A7 CMPB scfoe Simce tne). "1 
SA7 BNEQ 
B2Ar PUSHL 
SA7 PUSHL 4 
Beat PUSHAL value desc+8(SP) 
SA7 CALLS GABASSSTORE _BFA 
05A7 BRW a Ge 
05A7 30115$: PUSHL 
05A7 PUSHL R3 
05A7 PUSHL R2 
OSA? PUSHAL value _desc+12(SP) 
05A7 CALLS #4,G*BASSSTORE_BFA 
OSA7 BRW 8$ 
OSA7 30113$: CMPB sc$b class(R2), #dsc$k_class_bfa 
05A7 BNEQ 0102 
05A7 JSB “BASSSTO_ FA_D_R8 
05A7 BRW 108$ 
OSA7 30102$: BBS #5, 10(R2), 30103$ 
05A7 CMPB Soifts dimct(R2), #1 
05A7 BNEQ 
O5A7 MOVZWL GycSu_le Length (he? R6 
05A7 INDEX L1_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
O5A7 ADOL aatée cotRS)T R5 
05A7 MOVD RO, (R5) 
05A7 BRW 30108$ 
O5A7 30114$: INDEX R53, dsc$l_l1_2(R2), dsc$l_ul_2(R2), dsc$l_m2(R2), #0, RS 
05A7 MOVZWL dsc$w_lengthTR2), R6 
05A7 INDEX R4, dSc$L_l2_2(R2), dsc$l_u2_2(R2), R6, RS. RS 
05A7 ADDL dsc$a_a0(R2)> R5 
05A7 MOVD RO, (R5) 
05A7 BRW 30108$ 
05A7 30103$: CMPB gsc $b dimct(R2), 
O5A7 BNEQ 01168 
Q5A7 MOVZWL dsc$w stenath (Re 
O5A7 INDEX R4, dSc$L_L Hind), * asc$t_ut_1(R2), R6, #0, RS 
5A7 ADDL dsc$a_a0 Sted) 
05A7 MOVD RO, (R5) 
O5A7 BRw 30108$ 
bear 30116$: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dscS$l_mi(R2), #0, RS 
SA7 MOVZWL dscSu_ LengthTR2), R6 
05A7 INDEX R3, dSc$L_L1_2(RO), dsc$l_u1_2(R2), R6, RS, 25 
SA7 ADDL dsc$a gotRe), R5 
SA7 MOVD » (RS) 
5SA7 oIFF 
O3Ar IF IDN dD, 
18 02 A2 91 O5A7 CMPB dsc$b_dtype(R2), #dsc$k_dtype_dsc 
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| BASSMAT_INIT 15-SEP-1984 :44:09 VAX/VMS Macro v04-00 Pa 4 
Re BASSMAT_INIT = Initialize a matrix g-$Eb= 1 98e 19:39:98 BASRTL.SRCIBASMATINI .MAR; 1 te 3) 
41 1 AB BNEG 30117$ 
50 4A 300 MOVL ang), RO 
AE { A 61 MOVB dsc$b_dtype(RO), dtype(SP) 
F AE ry 586 MOVE dsc$b_class(RO), class(SP) 
10 AE 14 AE 43 288 MOVAL Goxa(SP). pointer (SP) 
oc AE OA 8 5¢ MOVW |] str Leni sp) 
1 OBA 1 05¢4 CMPB q c$p dimct(R2), #1 
1 12 05¢8 BNEQ 1198 
: DD 5CA PUSHL R 
14 a OF att PUSHAL . l d +8(SP) 
value desc 
00000000" GF FB 0501 CALLS as *BASSSTORE BFA 
0099 31 $88 BRW 3 18s * 
2 DD 0508 30119$: PUSHL R4 
3 DD O5DD PUSHL R3 
52 DD OSDF PUSHL R2 
18 AE OF 0Q5E1 PUSHAL value_desc+12(SP) 
00000000 ' GF 06 FB OSE4 CALLS #4 GAGASSSTORE_BFA 
08A 31 O5€8 BRW 301 
BF 8F O35 A2 91 p2eg 30117$: CMPB sc$b_class(R2), #dsc$k_class_bfa 
09 12 OSF BNEQ 104 
00000000'GF 16 O5F5 JSB “BASSSTO_FA_D_R8 
007A 31 O5SFB BRwW 108$ 
3C OA A205 69 pare 30104$: BBS #5, 10(R2), 30105$ 
01 0B A2 1 060 CMPB gc$e dimct(R2), #1 
1 12 0607 BNEQ 01:8 
56 6 3C 0609 MOVZWL Yee ether R6 
00 56 11C A218 A2 33 OA 960¢ INDEX R3, dSc$l_L1_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
55 10 ae CO 0615 ADDL dsc$a_a0(R2), RS 
—. 2 70 0619 MOVD 
0059 «431 O61C BRW 30108$ 
“1B A220 A2 1Cc a 33 OA bebe 30118$: INDEX R3, dsc$l_l1_2(R2), dsc$l_ul_2(R2), dsc$l_m2(R2), #0, RS 
“. - oe $659 MOVZWL dsc$w_length(R2), R6 
55 56 2B.A2 26 A2 34 0A d6¢¢ INDEX R4, dSc$l_l2_2(R2), dsc$l_u2_2(R2), R6, RS, RS 
55 10 A2 CO 0635 ADOL dsc$a_a0(R2), R5 
65 50 70 0639 MOVD (R 
0039 31 063C BRW 30108$ 
01 0B A2 91 063F 30105$: CMPB gac$b dimct(R2), #1 
16 -12 0643 BNEQ 01208 
56 62 3C -.0645 MOVZWL dsc$w_length(R2), R6 
00 56 41 A2~ 18 A2 22 OA Oe50~ INDEX R4, dsc$l_11_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
55 10 ae £8 651 ADOL dsc$a_a0(R2), RS 
65 5 0 0655 MOVD 
001D +H 658 BRW $ 
14 A2 28 A2 26 ag 54 A poze 30120$: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_mi(R2), #0, RS 
6 ee 3C bee3 MOVZWL SgcSu_ Longe (ae? R6 
55 56 20 a2 1 A2 33 OA 668 INDEX R3, dSc$L_(1_2(R2), dsc$l_u1_2(R2), R6, RS, RS 
55 10 Fr £8 671 ADDL dsc$a_a0(R2), RS 
65 § 0 ore nove RO, (RS) 
re CMPB dsc$b_dtype(R1), M#dsc$k_dtype_dsc 


—_— _ 


6 16 
BA 7 INIT 15-SEP-1984 AX/VMS Macro v04-00 P 4 
oe BASSMAT_INIT = Initialize a matrix 6-SEP-1984 t 93:35 33 BASRTL.SRCJBASMATINI.MAR;1 ~~ a 
Bon, 
67 BNEQ oye 
67 MOVL raed RO 
67 MOVB dsc$b_dtype(R ), dtype(SP) 
67 MOVB sc$b_class(RO), class(SP) 
67 MOVAL data(SP), pointer (SP) 
67 MOVW str_len(SP) 
67 CMPB gsc $b dimcet(R1), #1 
067 BNEQ 1238 
067 PUSHL 
bes PUSHL R 
67 PUSHAL ve'ue desc+8(SP) 
367 CALLS #h 4 GagASSSTORE_ BFA 
67 RW 301 
bop 30123$: PUSHL 
678 PUSHL RD 
0678 PUSHL R1 
0678 PUSHAL volue desc+12(SP) 
0678 CALLS $F 1G AGASSSTORE _ BFA 
0678 BRW 8$ 
0678 30121$: CMPB sc$b_class(R1), #dsc$k_class_bfa 
0678 BNEQ 
0678 JSB “BASS$STO_FA_D_R8 
0678 BRW 
0678 30106$: BBS #5, 10(R1), 30107$ 
0678 CMPB dsc$b dimet(R1), #1 
0678 BNEQ 01228 
0678 MOVZWL dsc$w_length(R1) 
0678 INDEX R2, dSc$L_L1 eet, *gsc$t_ul_1(R1), RS, #0, R4 
0678 ADDL dsc$a_a0 5tRI > R 
0678 MOVD RO, (R4) 
0678 BRW Soto 
0678 30122$: INDEX R2, dsc$l_l1_2(R1), dsc$t_ul_2(R1), dsc$l_m2(R1), #0, R4 
0678 MOVZWL dsc$w_lengthTR1) 
0678 DEX R3, dsc$l_l2_2(R1), dsc$l_u2_2(R1), RS, R4, RA 
0678 ADDL dsc$a_a0(R1)> R4 
0678 MOVD RO, (R4) 
0678 BRW 30108$ 
0678 30107$: CMPB gsc$be dimct(R1), #1 
0678 BNEQ 
0678 MOVZWL dsc$u ls Longeh (a! 
0678 INDEX Hato, > dse$t_ut_1(R1), RS, #0, R4 
0678 ADDL dsc$a cS Siri) R4 
0678 MOVD ( 
0678 BRW soiogs 
67 301248: INDEX R3, dsc$l_L2_2(R1), dsc$l_u2_2(R1), dscSl_m1(R1), #0, R4 
3078 MOVZWL dsc$w_lengthTR1) 
067 INDEX R2, dSc$L_L1_2(R1), dsc$l_ul_2(R1), RS, R4, R4 
0678 ADOL dsc$a_a0(R1)> R4 
0678 MOVD RO, (R4 
beoe -ENDC 
067 ~ENDC 
bee -ENDC 
$7 30108$: 
D6 O67 INCL R11 ; get next column 
59 5B D1 O67A CMPL R11, R9 ; see if Last column done 
14 067D BGTR 23 


---———- -—---- ----———-- -- - —- -—- 


v04-00 P 
BASRTL. SRCIBASMATINI . MAR; 1 


H 16 
| BASSMAT_INIT i a 3 ta hs $3758 :98 AX/VMS Macro 
1-010 BASSMAT_INIT = Initialize a matrix 6-SEP-1984 10:29:28 
FFI3) 31 pert BRw LOOP_2ND_ SUBD ; no, continue inner Loop 
és 3¢ 
oe : Have completed entire row. See if it was the Last row. If not, 
oe ; _continue with next row. 
6 Te 
04 AE 06 06 2s: INCL Lower _bnd1 (SP) : get next row 
08 AE 04 at H ea aga ower_bnd1(SP), upper_bnd1(SP) ; see if last row done 
FFOS = 31 : BRwW LOOP_1ST_SUBD 3; no, continue outer loop 
04 068F 3$: RET : yes, finished 
0690 


| 
| 
| 


7E 


BASSMAT_INIT 


08 AC 4EFD 

. a. 

, ee 

7e =67C 

OB AA 91 
ee 

15 «1A 

F9AS 51 

1¢ AA DD 
18 AA DD 

3 614 

6E 1 O 
59 <2 
01 DD 


069 
69 
69 


a3 


- Initialize a matrix 
381 GFLOAT: SBASSMAT_INIT G 


1 16 
04-00 Peas 43 
8 ([BASRTL.SRCIJBASMATINI.MAR:1 (8) 


; expand to gfloat operations 


— 
ow 
‘es 
nn 
mm 
vv 
ee 
— 
ono 
oo70D 
ae 
= 
Ow 
LAS? a 


$393 AX/VMS Macro 


RO - RB destroyed by store routines 
upper bound for 2nd subscript 

0 pointer to array descriptor 

1 current value of 2nd subscript 


mR R USAGE 


Z¢ 
; Set up Limits for Looping through all elements 


. IDN GL 
IFT ; data type is long 
MOVL constant(AP), -(SP) ; move constant 
F ; data type is not long 
LG constant(AP), =-(SP) ; make constant same datatype 


; aS array, save on stack 


" IDN G, D ; if array is double 
MOVL SFSL_SAVE_FP(FP), RO 3; pass FP to get scale 
J G*BASSSSCALE_R1 get scale in RO & R1 
call a BLISS routine because 
the frame offsets are only 
defined for BLISS 

scale 


MULD2 RO, (SP) 
NDC 


. 3° 
' 3 Allocate data and value_desc on the stack. This applies to both 
‘ 3 one and two dimensions. 


CLRQ -(SP) ; space for data 

CLRQ (SP) 3: may be hfloat 

CLRQ -(SP) ; space for value_desc 

MPB DSCSB_DIMCT(R10), #1 ; determine # of subscripts 
BEQLU INIT_ONE_SUBG ; 1 sub, go init | 

BGTRU INIT TWO SUBSG ; >=2 subs, go init 

BRW ERR_ARGDONMAT ; 6 subs, error 


so 
; There is only 1 subscript. Make both ypper and lower bound for 2nd 


; subscript a 1. The second subscript wi 
3; store routine. 


be passed to and ignored by the 


INIT_ONE_SUBG: 
PUSHL dsc$l_u1_1(R10) ; Ist upper bound 
PUSHL dsc$l_L1_1(R10) ; Ist lower bound 
GTR 1$ ; not 0 or neg, do 2nd sub 
MOVL #1, (SP) : don't alter col 0 
1$: OVL #1, R9 ; dummy 2nd lower bound 
PUSHL #1 ; dummy 2nd upper bound 


J 16 
| BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 Pa 4 
| we tts BASSMAT_INIT = Initialize a matrix Pa et $3:59;58 BASRTL. SRCIBASMAT INI. MAR; 1 a (3) 
| msm «67 3 BRB LOOP_2ND_SUBG i; go loop 
68 3* 
68 : There are 2 subscripts. Put the — bound for both subscripts on the 
68 ; stack and make sure that the — ound for both subscripts will start 
3 3; at 1 (do not alter row or col 0 
68 
68 INIT_TWO_SUBSG: 
20 AA DD 068 PUSHL qacSt ui _gcnie) ; Ist upper bound 
1C AA DD 0688 PUSHL dsc$l_l1_2(R10) ; 1st lower bound 
03 14 068 BGTR 1$ 3 not row 0 or neq. do cols 
6E 01 DO O6C MOVL #1, (SP) : start with row 
59 $8 AA 00 06C 1$ MOVL gsc st ugg (no) R9 ; 2nd upper bound 
4 AA DD O6C PUSHL dsc$l_l2_2(R10) : oo ng po bound 
03 14 O06CA BGTR  LOOP_TST~SUBG : not col oop 
6— 01 00 O6CC MOVL #1, TSP) 3 stent MP col 1 
O6CE 
z* 
O6CF : Loop through all the rows. Row and column upper and lower bounds have been 
O6CF ; initialized on the stack. 
O6CF to 
O6CF 
O6CF LOOP_1ST_SUBG: 
58 6E€ 00 BOC MOVL lLower_bnd2(SP), R11 ; R11 has 2nd lower bound 
debe :+ 
06D ; Loop through all the elements (columns) of the current row. Column lower 
06D2 ; bound is initialized in R11. Column upper bound is on the stack. 
06D2 ; Distinguish array by data type so that the correct store routine can be 
pens ; called and the constant can be converted to the correct type. 
06D2 
bens LOOP_2ND_SUBG: 
50 24 AE SOFD 06D2 MOVG constant_cvt(SP), RO ; put — into RO 
stg RO & R1 for double 
0607 : “en proses by value, hfloat takes 4 words, ide and double take 2 words, 
pep! ; _and all other data types take 1 longword. 
607 a 
pene IF ION G, H 3; data type is hfloat 
st44 MOVL R10, R : pointer to array desc 
607 MOVL Lower_bnd1(SP), R5 3; current row 
06D7 MOVL R11, R6 : current column 
06D7 a LFF 
06D7 IF IDN G, G ; data oe {s gfloat 
5A 00 06D7 MOVL R10, R pointer to array desc 
53 04 AE DO OQ6DA MOVL lower_bnd1(SP), R3 3 current row 
54 5B 00 pepe ati R11, R4 3 current column 
06E1 IF IDN G, D ; data type is double 
06E1 MOVL R10, R2 : pointer to array desc 
06E1 MOVL lLower_bnd1(SP), R3 3 current row 
06E1 MOVL R11, R4 3; current column 
06E1 a lFF : all other data types 
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ASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro V04- Pp 47 
1-010 BASSMAT_INIT = Initialize a matrix Patios 1 93:59:58 BASRTL eRe IBASHAT ME MAR: 1 _e (5) 
6E1 MOVL R10, R1 ; pointer to array desc 
6E1 MOVL lower erorke: R2 : erent row . 
06E1 VL R11, R 3; current column 
06E1 ~ENDC 
06E1 ~ENDC 
O6e] sENDC 
14 AE 50 SOFD 06E1 VG RO, data(SP) ; store value in value_desc 
06E6 STORE G 3 store in array 
Seee thee orsb an Ro) #dsc$k_d d 
Cc e ° sc type _dsc 
06E6 Stn hb 14 a patie 
06E6 MOVL 4(R4), RO 
06E6 MOVB dsc$b_dtype(RO), dtype(SP) 
06E6 MOVB dsc$b class(RO), class(SP) 
06E6 MOVAL data(SP), pointer (SP) 
06E6 MOVW #10, str_len(SP) 
06E6 CMPB ss dsc $b_dimct(R4), #1 
066 BNEQ 301368 
06E6 PUSHL 
06E6 PUSHL R4 
06E6 PUSHAL value desc+8(SP) 
06E6 CALLS #3,G*BASSSTORE_BFA 
06E6 BRW 30133$ 
06E6 30136$: PUSHL R6 
06E6 PUSHL R5 
066 PUSHL R4 
06E6 PUSHAL value desc+12(SP) 
06E6 CALLS #4,G*BASSSTORE_BFA 
06E6 BRW 3$ 
06E6 30134$: CMPB dsc$b_class(R4), #dsc$k_class_bfa 
06E6 BNEQ 301258 
06E6 JSB G*BAS$STO_FA_G_R8 
06E6 BRW 30133$ 
06E6 30125$: BBS #5, 10(R4), 30126$ 
06E6 CMPB dsc$b_dimct(R4), #1 
06E6 BNEQ 301358 
06E6 MOVZWL dsc$w_length(R4), R8 
06E6 INDEX R5, dSc$L_L1_1(R4), dsc$l_u1_1(R4), RB, #0, R7 
06E6 ADDL dsc$a_a0(R4)> R7 
06E6 MOVG RO, (R7) 
06E6 BRW 30133$ 
06E6 30135$: INDEX R5, dsc$l_l1_2(R4), dsc$l_ul_2(R4), dsc$l_m2(R4), #0, R7 
06E6 MOVZWL dsc$w_lengthTR4), R8 
O6E6 INDEX , dsc$l_l2_2(R4), dsc$l_u2_2(R4), RB, R7, R7 
66 ADDL dsc$a_a0(R4)> R7 
06E6 MOVG 0, (R7) 
06E6 BRwW 301338 
06E6 30126$: CMPB gac$b dimct(R4), #1 
peEe BNEQ 01378 
6E6 MOVZWL dsc$w_length(R4), R8 
06E6 INDEX R6, dSc$L_L1_1(R4), dsc$l_u1_1(R4), RB, #0, R7 
06E6 ADDL dsc$a_a0(R4)> R7 
06E6 MOVG RO, (R7) 
0666 BRW { 
06E6 30137$: INDEX R6, dsc$l_l2_2(R4), dsc$l_u2_2(R4), dscSl_m1(R4), #0, R7 
O6E6 MOVZ2WL dsc$w_LengthTR4), RB 
6E6 INDEX 5, dSc$L_L1_2(R4), dsc$l_u1_2(R4), RB, R7, R7 


| L 16 


| BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro V04-00 Pp 4 
i0 BASSMAT_INIT = Initialize a matrix 6-SEP=1984 93:39:58 BASRTL.SRCIJBASMATINI.MAR; 1 a ‘8, 
6E6 ADOL dsc$a_a0(R4), R7 
| 6E6 MOVE RO. CR?) 
6€6 ~IFF 
6E6 olf IDN G, G 
18 02 A2 91 0Q6E6 CMPB gac$b dtype(R2), #dsc$k_dtype_dsc 
12 O6EA BNEQ 0138S 
50 O4A DO O6EC MOVL 4(R2), RO 
OE AE 8 A 90 pore MOVB dsc$b_dtype(RO), dtype(SP) 
OF AE 035 AO 90 ve MOVs dsc$b_class(RO), class(SP) 
10 AE 146A DE O6FA MOVAL data(SP), pointer (SP) 
OC AE OA BO O6FF MOVW #10, str_len(SP) 
01 OB A2 91 0703 CMPB gsc $b dimct(R2), #1 
11 12 07 BNEQ 1408 
53 DD 0709 PUSHL R3 
52 DD «(0708 PUSHL R2 
14 AE DF 070D PUSHAL value_desc+8(SP) 
00000000'GF 0 FB 0710 CALLS 43 G°BASSSTORE_BFA 
00A1 31 0717 BRW 30133$ 
54 DD O7I1A 30140$: PUSHL  R4 
53 DD O71C PUSHL R3 
52 0D O7IE PUSHL R2 
18 AE ODF 0720 PUSHAL value_desc+12(SP) 
00000000'GF 04 FB O73 CALLS #4,G*BASSSTORE_BFA 
O8€ 31 O72A BRW 30133$ 
BF 8F O3 A2 91 072d 30138$: CMPB dsc$b_class(R2), #dsc$k_class_bfa 
09 12 0732 BNEQ 7 
00000000'GF 16 0734 JSB G*BAS$STO_FA_G_R8 
0O7E 31 O73A BRW 30133$ 
3—E OA A2 05 €0 073D 30127$: BBS #5, 10(R2), 30128$ 
01 A2 91 0742 CMPB =. dsc $b_dimct(R2), #1 
17 12 0746 BNEQ 301398 
56 $¢ 3C «60748 MOVZWL dsc$w_length(R2), R6 
00 56 110 A2 18 A2 33 OA 0748 INDEX R3, dSc$l_L1_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
ae CO 0754 ADDL dsc$a_a0(R2), RS 
65 50 SOFD 0758 MOVG RO, (RS) 
005¢ «31 «075c BRW 30133$ 
18 A2 20 A2 1C€ a2 53 OA O73F 30139$: INDEX R3, dsc$l_l1_2(R2), dsc$l_ul_2(R2), dsc$l_m2(R2), #0, R5 
56 62 3C 0769 MOVZWL dsc$w_length(R2), R6 
55 56 28 A2 24 A2 24 OA O76¢ INDEX R4, dSc$l_L2_2(R2), dsc$l_u2_2(R2), R6, RS, RS 
55 10 A2 CO 0775 ADOL dsc$a_a0(R2), RS 
65 50 SOFD 0779 MOVG RO, (RS) 
0038 31 «077d BRW 301338 
01 0B Ae 91 0780 30128$: CMPB dsc$b_dimct(R2), #1 
1 12 0784 BNEQ 301418 
56 62 3C 0786 MOVZWL dsc$w_length(R2), R6 
00 56 1C A2. 18 A2 24 OA 0789 INDEX R4, dSc$L_L1_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
55 10 ag co Ors2 ADOL dsc$a_a0(R2), RS 
65 50 SOFD 0798 MOVG RO, (RS) 
OO1E 31 O79A BRW 301338 
14 A2 28 A2 26 a2 36 OA O7As 30141$: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_m1(R2), #0, RS 
56 2¢ 3c 6(O7A7 MOVZWL Sechu, Longen (Re) R6 
55 56 20A2 WC A2 5§ OA O7AA INDEX R3, dSc$L_L1_2(R2), dsc$l_ul_2(R2), RO, RS, RS 


—-——————_——— 


j 
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M16 
15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 
- Initialize a matrix Fanta hs 13:39:58 BASRTL.SRCJBASMATINI.MAR; 1 
ADDL dsc$a goth). RS 
MOVG RO, (R5) 
LFF 
cnpe ens on PR2) #dsc$k_dtype_d 
sc pe » Mdsc$k_dtype_dsc 
Bwea = $0iagge . 
MOVL zeros. RO 
MOVB dsc$b “dtype(RO), dtype(SP) 
MOVB dsc$b_class(RO), class(SP) 
MOVAL datacSP). pointer (SP) 
MOVW #10, str_len(SP) 
CMPB dsc $b dimct(R2), #1 
BNEG 01448 
PUSHL R3 
PUSHL R2 
PUSHAL velue desc+8(SP) 
CALLS eri gg noes ORE. BFA 
BRW 301 
30144$: PUSHL 
PUSHL RS 
USHL Re 
PUSHAL value _desc+12(SP) 
aw ae #4 GSGASSSTORE_ BFA 
30142$: CMPB dsc$b_class(R2), #dsc$k_class_bfa 
BNEQ 30 
JSB G*BAS$STO_FA_G_R8 
BRW 30133$ 
30129$: BBS #5, 10(R2), 291308 
CMPB dsc$b dimct(R2), 
BNEQ 301438 
MOVZWL dsc$w_length(R2), R6 
INDEX , dsc$l_l1_1(R2), dsc$l_u1_1(R2), R6, #0, RS 
ADOL dsc$a_a0(R2)> R5 
MOVG 0, (RS) 
BRW 133$ 
30143$: INDEX R3, dsc$l_l1_2(R2), dsc$l_u1_2(R2), dsc$l_m2(R2), #0, RS 
MOVZWL dsc$w_lengthTR2), R6 
INDEX R4, dSc$L_l2_2(R2), dsc$l_u2_2(R2), R6, RS, RS 
ADOL dsc$a_a0(R2)> R5 
MOVG 0, (RS) 
BRW 301338 
30130$: CMPB g3c$b dimct(R2), 
BNEQ 01458 
MOVZWL dscS$w signet (ne 
INDEX R4, 308° Hind), Sasc$t_ut_1(R2), R6, #0, RS 
ADDL dsc$a cOtRS)T ), 
MOVG R (R5) 
BRW 30133$ 
301458: INDEX R4, dsc$l_l2_2(R2), dsc$l_u2_2(R2), dsc$l_m1(R2), #0, RS 
MOVZWL dsc$w_lengthTR2), R6 
INDEX R3, 3 c$l_l1_2(R2), dsc$l_ul_2(R2), R6, RS, RS 
ADDL esche 20(R2) R5 
st 0, <r 
CMPB dsc$b_dtype(R1), #dsc$k_dtype_dsc 


Page 
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1-010 


59 


oumw 
Woo 


BASSMAT_INIT 


-Oo9 


-4 


B 1 


Nah 15-SEP-1984 23:44:09 
= Initialize a matrix 6-SEP=-1984 10:29:28 
JNEQ 30146$ 
MOVL 4(R1), RO 
MOVB dscp ctype (Rt). dtype(SP) 
MOVB dsc$b_class(RO), class(SP) 
MOVAL data(SP), pointer (SP) 
MOVW 10, str_len(SP) 
CMPB dsc $b dimcet(R1), #1 
BNEQ 148$ 
PUSHL R 
PUSHL R1 
PUSHAL value_desc+8(SP) 
CALLS #3 Gg hSSSTORE_BFA 
RW 30133$ 
30148$: PUSHL R3 
PUSHL R2 
USHL R1 
PUSHAL value_desc+12(SP) 
CALLS #4 GI GASSSTORE_GFA 
BRW 30133$ 
30146$: CMPB dsc$b_class(R1), #dsc$k_class_bfa 
BNEQ 301318 
JSB G*BAS$STO_FA_G_R8 
BRW 30133$ 
30131$: BBS #5, 10(R1), 301328 
CMPB dsc$b_dimct(R1), #1 
NEQ 301478 
MOVZWL dsc$w_length(R1), R5 
INDEX R2, dSc$L_L1_1(R1), dsc$l_ul_1(R1), 
ADDL dsc$a_a0(R1)> R4 
MOVG RO, (R4) 
BRW 30133$ 
30147$: INDEX R2, dsc$l_l1_2(R1), dsc$l_u1_2(R1), 
MOVZWL dsc$w_lengthTR1) 
INDEX R3, dSc$l_l2_2(R1), dsc$l_u2_2(R1), 
ADDL dsc$a_a0(R1)> R4 
MOVG RO, (R4) 
BRW 301338 
30132$: CMPB dsc$b_dimct(R1), #1 
BNEQ 301498 
MOVZWL dsc$w_length(R1), R5 
INDEX R3, dSc$L_L1_1(R1), dsc$l_u1_1(R1), 
ADDL dsc$a_a0(R1)> R4 
MOVG RO ) 


BRWw 30133 


30149$: INDEX _(2_2(R1), dsc$l_u2_2(R1), 
MOVZWL dsc$w_lengthTR1) 
INDEX R2, dSc$L_l1_2(R1), dsc$l_ul_2(R1), 
ADDL dsc$a_a0(R1)7 R4 
MOVG » (RS) 
-ENDC 
-ENDC 
-ENDC 
30133$: 
INCL R11 
CMPL R11, R9 
BGTR 2s 


AX/VMS Macro v04-00 
BASRTL.SRC JBASMATINI.MAR; 1 


be 


R5, #0, R4 


dsc$l_m2(R1), #0, R4 
R5, R4, R4 


RS, #0, R4 


dsc$l_m1(R1), #0, R4 
RS, R4, RO 


; get next column 
; see if last column done 
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08 AE 


FFOD 


04 AE 
04 A 
0 
FEFD 


BASSMAT_INIT 


31 


Oooooooooococo0ono 
WINNS COUMIUMIUMNIUNTUIUID 


15-SEP-1984 2 
- Initialize a matrix 6-SEP-1984 1 


BRwW LOOP_2ND_SUBG 


3:44:09 VAX/VMS Macro v04-00 Page 51 
0:29:28 CBASRTL.SRCJBASMATINI.MAR;1 (5) 


; no, continue inner loop 


3% 
; Have completed entire row. See if it was the last row. If not, 
; continue with next row. 


2$: INCL Lower _bnd1 (SP) ; get next row 
pork Lower_bndi(SP), upper_bnd1(SP) ; see if last row done 
BRW LOOP_1ST_SUBG ; no, continue outer loop 

3$: RET ; yes, finished 


dD 1 


BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro v04-00 Page 5 
1-010 BASSMAT_INIT = Initialize a matrix a-sep-1 984 19:39:98 BASRTL.SRCJBASMATINI.MAR; 1 ’ 2g 
97 383 HFLOAT: SBASSMAT_INIT H 3 expand to hfloat operations 
7D 3+ 
70 : REGISTER USAGE 
7D ; RO = R8 destroyed by store routines 
07D ; upper bound for 2nd subscript 
70 : R10 pointer to array descriptor. 
4 3 R11 current value of 2nd subscript 
D “ 
> Set up Limits for looping through all elements 
If IDN H, L 
IFT ; data type is long 
MCVL constant(AP), =(SP) ; move constant 
o 1FF ; data type is not long 
7E 08 AC 6EFD CVTLH constant(AP), -(SP) 3 make constant same datatype 
i as array, save on stack 
-ENDC 
IF IDN H, D ; if array is double 
MOYL SFSL_SAVE_FP(FP), RO ; pass FP to get scale 
JSB G*BASS$SCALE_R1 get scale in RO & R1 


call a BLISS routine because 
the frame offsets are only 
defined for BLISS 


3 
D3 
3 
D3 
D8 
D8 
8 
D8 
D8 
8 
3 
8 MULD2 RO, (SP) scale 
8 -ENDC 
3 
s¢ 
8 ; Allocate data and value_desc on the stack. This applies to both 
4 3; one and two dimensions. 
8 e 
7E 7C 8 CLRQ -(SP) ; space for data 
= A CLRQ -(SP) ; may be hfloat 
= : CLRQ -(SP) : space for value_desc 
01 OB AA 91 E CMP DSCSB_DIMCT(R10), #1 ; determine # of subscripts 
05 13 ¢ BEQLU INIT_ONE_SUBH ; 1 sub, go init — 
15 1A BGTRU INIT TWO SUBSH ; >=2 subs, go init 
F861 31 E BRw ERR_ARGDONMAT ; 6 subs, error 
9 se 
3 ; There is only 1 subscript. Make both yeper and lower bound for 2nd 
7€9 ; subscript a |. The second subscript will be passed to and ignored by the 
7€9 3; store routine. 
7€9 = 
7€9 
7€9 INIT_ONE_SUBH: 
1C AA DD O7E9 PUSHL dsc$l_u1_1(R10) : 1st upper bound 
18 AA DD OQ7EC PUSHL dsc$l_l1_1(R10) ; Ist lower bound 
3 16 O7EF GTR 1$ ; not 0 or neg, do 2nd sub 
6E 1 pO O7F1 MOVL #1, (SP) ; don't alter co 
59 1 DO O7F4 1$: OVL #1, R9 ; dummy an lower bound 
01 DD O7F7 PUSHL #1 : dummy 2nd upper bound 


1 
BASSMAT_INIT 15-SEP-1984 23:44:09 VAX/VMS Macro V04-00 Page 
S810 BASSMAT_INIT = Initialize a matrix 37SE b= 1 984 19:39:98 BASRTL.SRCIJBASMATINI.MAR; 1 . 
1A 1 BRB LOOP_2ND_SUBH ; go loop | 
3+ 
; There are 2 subscripts. Put the peer bound for both subscripts on the 
; stack and make sure that the lower bound for both subscripts will start 
; at 1 (do not alter row or col 0) 
INIT_TWO_SUBSH: 
20 AA DD PUSHL Gsc$t_ut 3 (R10) 3 1st upper bound 
1C AA DD PUSHL dsc$Ll_l1_2(R10) ; 1st lower bound 
03 14 BGTR 1$ ; not row 0 or “" do cols 
01 00 MOVL #1, (SP) ; start with row 
59 28 AA 00 1$: MOVL gsc St ugg (R10) R9 ; 2nd upper bound 
24 AA OOD PUSHL dsc$l_l2_2(R10) ; énd lower bound 
03 14 BGTR LOOP_TST~SUBH ; not col 0, go Loop 
6— 01 00 MOVL #i, TSP) ; start with col 1 
s* 
: Loop through all the rows. Row and column upper and lower bounds have been 
; initialized on the stack. 
LOOP_1ST_SUBH: 
5B 46E 00 MOVL lLower_bnd2(SP), R11 ; R11 has 2nd lower bound 


7+ 

; Loop through all the elements (columns) of the current row. Column lower 
; bound is initialized in R11. Column upper bound is on the stack. 

; Distinguish array by data type so that the correct store routine can be 
3; called and the constant can 


e converted to the correct type. 


LOOP_2ND_SUBH: 


MOVH constant_cvt(SP), RO 3 put constant into RO 
; RO & R1 for double 


24 
3; When proces by value, hfloat takes 4 words, gfloat and double take 2 words, 
a 


50 24 AE 70FD 


co ‘CO CS CD CS CS CD Cd C9 OS Cd Od OS Cd Cd OS OS OD OS OD Od OD OD CO Cd Cd OD CD CO OD Cd C9 09 OD CO CO CO CO C908 I NII SN NN SNS 
PPP PP YP PMA vivo ponynonynn FO POow—MOaIwawawwvwwwo 


COOOOOCOCOCOOOOCOSCOOSCSOOOSOCSOOOOOOSOCOSOOSOOSOSOOSOOCOOOOOOOOCOOOOOSOOOOOOoOO 
POPORIPOPONOPONIPINR) 2 2 = tS I  BQOOOCOO RTH HHH HHT ¢ 


: and all other data types take 1 longword. 
IF IDN H, H ; data type is hfloat 
54 5A 00 A MOVL R10, R : pointer to array desc 
55 04 AE 00 D MOVL Lower_bnd1(SP), R5 3 current row 
56 5B 00 ! ti R11, R6 3 current column 
4 IF IDN H, G ; data type is gfloat 
4 MOVL R10, R2 : pointer to array desc 
4 MOVL Lower_bnd1(SP), R3 3; current row 
: r wat R11, R4 3 current column 
4 If IDN H, D ; data type is double 
824 MOVL R10, R 3; pointer to array desc 
824 MOVL lower _bnd1(SP), R3 3; current row 
824 MOVL R11, R4 3 current column 
824 LFF : all other data types 


“wn 


14 AE 50 70FD 
18 O2 AG 91 
a ie 
50 O04 A4 OD 
OE AE 8s AO = 9V 
OF AE 035 AD 90 
10 AE 14 AE ODE 
OC AE OA 80 
01 OB AG 91 
ay i: a 
55 oD 
54 DD 
14 AE OOF 
00000000°GF 03 FB 
OOA1 31 
56 «OD 
55 0D 
54 DD 
18 AE OF 
Q00000000°GF 04 FB 
QO8E 31 
BF 8F 03 A4 4 
Q0000000"GF 16 
0O7E 31 
3€ OA 05 £0 
01 OB AG 91 
Wi 32 
5 66 «35x 
00 5B 10 AG 18 33 OA 
57 (10 A4 _ CO 
67 50 70FD 
005c = 31 
18 AG 20 AG 1C 55 OA 
57 00 
C 
& 


> 
57 S58 28 AG 24 
57 

6 


01 


5 
00 58 1 AS 18 
57 


BASSMAT_INIT 


64 3 
56 OO 
57 
10 A4 _ CO 
7 Hy 70FD 
00 31 
OB AS 91 
2 uo 
Hh 
5 
0 a4 _ CO 
7 50 70FD 


DOM S NWF OW NS PWM PONMVIOW™"SOOOL LLL LEE 


‘G9 CD CO GS CS CD Cd Cd CD CD CD CD Cd CD GD Cd OD CD Cd OD GD OD OD Od OD Od Cd Od CO Cd CO. C9 CD CD G9 CD CD. CO CD CD00 
OO O09 090000 SIND DAD TT BE EE NIPnonononoponofnonononn 


coco 
>Prrwo 
OPwornDnaom 


co 
Po 
~ 


Soo 


COSCO CCOSOOCOOCOCSCOCO OOOCSCCOCOCOSOSCO SOOO OOSOOOOO OOOO OOOOOOOOOOOOOOOOoOOo 
WUE SF ONWOOoN 


000000000 09 00 00: 


SVGAMQAOAOQOoO 


- Initialize a matrix 


30161$: 


30159$: 


30150$: 


30160$: 


301518: 


15-SEP-1984 23:44:09 VAX/VMS Macro V04-00 Page 
Pantset 1 95:36:93 BASRTL.SRCIJBASMATINI.MAR;1 9 
; pointer to array desc 

: current row 


R10, R1 
lower perce, R2 
R11, R : current column 


data(SP) ; store value in value_desc 


P store mn array 
: $b dtyp (R4) #d $k dtyp d 

sc e ° sc e sc 

$81 80s * > 


4(R4), RO 
dsc$b_dtype( 
dsc$b_class( 


R 
R4 
value_desc+8(SP) 
#3,G*BASSSTORE_BFA 
0158$ 


P 2] 
uo 


lue_desc+12(SP) 
ge SSSTORE_BFA 


b.class(R4), #dsc$k_class_bfa 


SSTO_FAH_RE 
O(R4), 301518 
imct(R4), #1 


ngth(R4), RB 
L-L1_1(R4), dsc$l_u1_1(R4), RB, #0, R7 


(R4), R7 


u 
G 
$ 
5 
A 
5 
$ 
6 
$ 


DAWA BWOWOAWac DVDADWw 
Vi OW WO 2Ov OFfFo 
se OROe —W- —s 


-Oo oO 


_—_ Oo 


c$L_L1_2(R4), dsc$l_ul_2(R4), dsc$i_m2(R4), #0, R7 


_length(R4), R8 
Sc$l_(2_2(R4), dsc$l_u2_2(R4), RB, R7, R7 


$a_a0(R4), R7 
(R?) 


$ 


-_ oO 


$b _dimct(R4), #1 
3 


$Sw_length(R4), R8 
, dsc$l_l1_1(R4), dsc$l_u1_1(R4), RB, #0, R7 


c$a_a0(R4), R7 
» (R7) 


ov ov ov oovw ov wWmoOov 


2a DTAwawz7a 2a DWwTAa 


“aw 
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BASSMAT_INIT 15-SEP- 3:44: AX/VMS Macro V04-00 Page 55 
1-010 BASSMAT_INIT = Initialize a matrix 6-SEP- 198 0:29: 93 BASRTL.SRCJBASMATINI.MAR; 1 . (5) 
ae 3 DD BRW 30158$ 
16 AG 2B AG 24 4 5 EO 301628: INDEX R6, dsc$l_l2_2(R4), beens see dsc$l_m1(R4), #0, R7 
es oe EA MOVZWL dsc$w_Length(R4) 
57 58 20M ICA 5S bk ge INDEX’ REC MECH ET SCRE) dsc$l_ut_2¢R4), RB, R7, R7 
57 10 HH CO O8F6 ADDL dsc$a_a0(R4), R7 
67. 50 70FD OBFA MOVH «ROW CRY) 
O8FE FF 
SBE chee sons ,otv6 €a2) #dsc$k_dtype_d 
sc e . Mdsc$k_dtype_dsc 
O8FE BNEQ $34 aie3s ste , 
O8FE MOVL 4(R2), RO 
O8FE MOVB dsc$b_dtype(R0O), dtype(SP) 
O8FE MOVB dsc$b_class(RO), class(SP) 
O8FE MOVAL data(SP), pointer (SP) 
O8FE MOVW #10, str_len(SP) 
O8FE CMPB dsc $b dimct(R2), #1 
OBFE BNEQ 01658 
O8FE PUSHL R3 
O8FE PUSHL R2 
O8FE PUSHAL value_desc+8(SP) 
O8FE CALLS #3,G*BASSSTORE_BFA 
O8FE BRW 30158$ 
OBFE 30165$: PUSHL R4 
O8FE PUSHL R3 
O8FE PUSHL Re 
O8FE PUSHAL value_desc+12(SP) 
O8FE CALLS #4,G*BASSSTORE_BFA 
O8FE BRW 30158$ 
O8FE 30163$: CMPB dsc$b_class(R2), #dsc$k_class_bfa 
O8FE BNEQ $01 
O8FE JSB G*BAS$STO_FA_H_R8 
O8FE BRW 30158$ 
O8FE 30152$: BBS #5, 10¢R2) . 30153$, 
O8FE CMPB dsc$b_dimct(R 2). 
O8FE NEQ 301648 
O8FE MOVZWL ggchu, Length (fe) R6 
O8FE INDEX R3, dSc$L_L1_1(R2), dsc$l_ul_1(R2), R6, #0, RS 
O8FE ADDL dsc$a_a0(R2)> R5 
O8FE MOVH RO, (R5) 
O8FE BRW 301588 
O8FE 30164$: INDEX R3, dsc$l_l1_2(R2), dsc$l_ul_2(R2), dsc$i_m2(R2), #0, RS 
pore MOVZWL dsc$w_lengthTR2), R6 
BFE DEX R4, dSc$l_l2_2(R2), dsc$l_u2_2(R2), R6, RS, RS 
O8FE ADDL dsc$a_a0(R2)> RS 
OBFE MOVH RO, (RS 
O8FE BRW 30158$ 
OBrE 30153$: CMPB gsc$be dimct(R2), #1 
BFE BNEQ 
O8FE MOVZWL dsc$w glenarh (Re 
O8FE INDEX déc$l_t Nis), Sasc$t_ut_1(R2), R6, #0, RS 
OBFE ADDL dsc a 090( Stab) 
FE MOVH 
FE BRW : (she 
FE 301668: INDEX R4, dsc$l_L2_2(R2), dsc$l_u2_2(R2), dsc$l_m1(R2), #0, R5 
O8FE MOVZWL dsc$w_lengthTR2), R6 


BASSMAT _INIT 
1-010 


BASSMAT_INIT = Initialize a matrix 


30169$: PUSHL 


30167$: CMPB 


F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
“ 30154$: BBS 
F 

F 

F 

F 

F 

F 

F 


: 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
8 
: 
; 30168$: INDEX 
8 

8 

é 

: 30155$: ce 
8 

8 

8 

8 

8 

8 


; 30170$: INDEX 
8 


So SS ooeo eo eo So Goo an od GO Go GoGo Go Govan ao Go Go Go Go do do So doo ao Sooo owe eee eeenee 
THOT MMMM MMMM MMMM MMMM MMMM MMMM Mm mMmmMmmM Mmm mMmmmMmmmMmMmmmmMmmmmMmmmMmmnmmnmnmmnccnierny 
wo 
z 
<= 


F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
BF 
8F 


c$a_a0( 
Roc ers) 
ION H, 

c$ dtypecR2), #dsc$k_dtype_dsc 
etic: 
4(R2), RO 
dsc$b -dtype(R ), dtype(SP 
dsc$b_class(RO), class(SP 
data(SP), pointer (SP) 


#10, str_len Ty 
Siiths dimet(R2), #1 


Re 
e desc+8(S 
#8 ctaasssrone BFA 
30 
RS 


Re 
vel ue_desc+12(SP) 
“BASSSTORE_BFA 


$0 8$ 
dsc$b_class(R2), Mdsc$k_class_bfa 


“BASSSTO_FA_H_R8 
0158$ 


R6 


g 4 dimct(R2), 
gyety glenarh (he 
oe ¥ ui OCR) 
ie Lengentae? R6 


ees #dsc$k_dtype_dsc 


2) 
he! dsc$l_u1_1(R2), 


Re} dsc$l_ul_2(R2), 
z dsc$l_u2_2(R2), 


Rb 
“Andy, dsc$l_ul_1(R2), 


dsc$l_u2_2(R2), 
1.2(R2), dsc$l_ul_2(R2), 


R6, R5, RS 


R6, #0, R5 


dsc$l_m2(R2), 


R6, RS, RS 


R6, #0, RS 


dsc$l_mi(R2), 


R6, RS, RS 


BASRTL.SRCJBASMATINI .MAR; 1 


2 “360-1 384 $346 03 rtd ei Macro V04-00 
a after} al ~2(R2), dsc$l_ul_2(R2), 
(R R5 


#0, R5 


#0, RS 


re tf 


BASSMAT_INIT 
1-010 BASSMAT_INIT 


FE 
FE 
FE 
FE 
FE 
gre 
FE 
BFE 
BFE 
BFE 
O8FE 
O8FE 
O8FE 
O8FE 30173$: 
O8FE 
OBFE 
O8FE 
pore 
BFE 
O8FE 30171$: 
O8FE 
O8FE 
O8FE 
O8FE 30156$: 
O8FE 
O8FE 
O8FE 
O8FE 
O8FE 
O8FE 
O8FE 
O8FE 30172$: 
O8FE 
O8FE 
O8FE 
O8FE 
O8FE 
O8FE 30157$: 
O8FE 
O8FE 
O8FE 
OBFE 
O8FE 
pore 
BFE 30174$: 
pore 
BFE 
O8FE 
O8FE 
O8FE 
pare 
BFE 
re 30158$: 
swe 
59 8 D1 0 
0 14 090 


- Initialize a matrix 


13-360- 1986 95:55:98 

6-SEP-1984 10:29:28 

30171$ 

4(R1), RO 

dsc$b_dtype(RO), 

dsc$b_class(RO), 

data(SP), pointer 
(SP) 


value _desc+12(SP) 
#4 § AGASSSTORE GFA 
30158 


$ 
gsc$b class(R1), Mdsc$k_class_bfa 
01568 


G RASSSTO_FALHRG 

0158$ 

#5, 10(R1), 30157$ 

gsc $b dimct(R1), #1 
01728 


1), R5 
cri), dsc$l_u1_1(R1), R5, #0, R4 


AX/VMS Macro V04 
BASRTL.SRCIJBASMATINI.MAR; 1 (5) 
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» dsc$l_l1_2(R1), dsc$l_ul_2(R1), dsc$l_m2(R1), #0, R4 
dsc$w_lengthTR1) 
R3, dsc$l_l2_2(R1), dsc$l_u2_2(R1), R5, R4, RG 
dsc$a_a0(R1)> R4 

(R4) 

30158$ 
gac$b dimct(R1), #1 
01748 


sgctu, Loner (2) R5 
R3, dsc$l_L1_1(R1), dsc$l_u1_1(R1), R5, #0, R4 
Osc$e aOR), R4 


~(2_2(R1), dsc$l_u2_2(R1), dsc$l_m1(R1), #0, R4 
dsc$w_lengthTR1), R5 
Re, dsc$l_l1_2(R1), dsc$l_u1_2(R1), R5, R4, R4 
¢ c8aa0(RI), RG 


1 3 get next column 
1, R9 ; see if last column done 


1 
BASSMAT_INIT : 15-SE 
1-010 BASSMAT_INIT = Initialize a matrix 6-SE 


FFOD 31 : LOOP_2ND_SUBH 


04 AE 06 
04 at D1 
0 14 
FEFD = 31 


BRW 


5 

: Have completed entire row. 
: ; _continue with next row. 
8 2s: INCL Lower _bnd1 (SP) 
ower_bnd1(SP), 
6 

6 


LOOP_1ST_SUBH 


08 AE CMPL 


BGTR 

BRW 

3$: RET 
384 END 


Ooo 
wowowowowowowowowowowowowvono 


oS 
= 
felelelelelejlojo! 


HR F848 


AX/VMS Macro v04-00 
BASRTL.SRCIBASMATINI. MAR; = 


3 no, continue inner loop 


See if it was the last row. If not, 


i; get next row 
; see if last row done 


upper _bnd1 (SP) 
3; no, continue outer loop 
: yes, finished 


; end of BASSMAT_INIT 


~w 


—_—— — -——-)— + -————-- — 


) 


Page 59 
efit > 


o V04-00 
BASMATINI MAR; 1 


NNNNNININICINNNCININNNCIG ™N 
SOoOOCooooooooooooooo oO 


@DMO fu MOU UWA - DNVNMNOT FOF OVUVUOUM 
we DVO FTV- CAST O-— — A2CSCSo-COCooe 


SOOCoooooooooooooooooooooooeo 
SOCooCooooooooooooooooooooo 
SoOCOCOCSCCOOOSOOOSOOSOOOoOoOoOoOoOoOooo 
COOOQOOCOOOCOCOOCOSOOOOSOOOOOOoOooSooO 


SEp-1986 10:29:28 LBASRiL. SAC) 


8 
| mo 
- 
xus 
MYNM DWOvwVOTtIBMOVOtis 
QOD DMODOOODODOOOOOOO®D a 
_ ee cag ca cee ee ed aa a ce ed a ee ed - 
ANAM YMNMMNMNMNMNYNHNVHNNNRW tiv 
} eee @esepeeeeee et tt SS w om 
; @™ fo] eo) oe od od ol oe oe ed ee 1 1 1 le > 2w 
BIBT MMV ]!? ZS SZSZZZ2Z20O0O0 ec<t2Q00 
| ee SR RR MM KONIC Ot o<wmw st lt 
eee seeseeeeeee et tt ee aer Low 
| -—r—r-WAAAAAoAaadkadkaadawwteii toro 
| ms FOOD COCCOCOCOCCOCCCO3S 3+ a8 Je 
| SBtZZOOCOCOCOCCCOCCCCooooo0<zoOur a tO 
rr I I I I I I I I I I I I I IIE AMM DS Ss 
' 
OOOOMOOCOOOOCOOoON, N eucucucucucucucucucucucucuncucy 
| Oooo oOCooooooooo Oo COoOCCCOOOCOOOOoOoOoOoO 
} MAREDESS _ DESEDEDE NEAR SENS 
| 
| [+ 4 « « @QaeaQqaeaacaaccacaaca¢c&cae 
See ePOeR ee See ER LOT TROCMOAWU ODDO VOVTTDVODR. OCW ODOMVRAOOS FS OwWOws 
See eeOe eee aneze pf le eee Oe ees ole em eee ee es 0 ot Te 8 ate et 
See eFOe FFF eee FE DOODOONOOCOCOCOSOSOSOOCOCSOOCOCOCOOOOCOSOSSOOO Tt OR. OMT OR NOM 
Se eFOeR FF FEE FEQOOOOCOOCOOCOCOCOCSOSOSOSOSOSOSOSOSOSOSOOOOSOSOSOOOSOSOSOSOOSOOSOSOOSOSOOOS OSS 
Se FeO FFF ee FE OCOOCOCOCOCOCOCOSCOSOSSOOSSCOOSCSOOSOOOSOSOSOOSSSOSSOSSOSOSOOSSOOSSOSS 
SP SFOS FEE EEE FE COOOOCOCOCOOCSCSOSOSSOSOOSOSOOSOOSOSOOOOOSOOSOSOSOSOSOSOSOSSOSOOOOSS OS 
See eOe FF Hee FE OOOCOCOCOCOCOCOSCSOSOSOSOSOSOSOSCOSOSOOOSOSOSOSOSOSSSSOOSOSS SOOO O SOS 
j See eFEOK EEE EEE &EOOOOOCOOCOCOCOCOCOCOCOCOCOCOCSCOSCOOCOOOOOSOOOOOOOO OOOO OOOO 
| noun HHHUHHHHHHKHhHhHhHhhHhhahaeaee 
' 
-a @0 0000 c0 G0. c0.c0 af ve w 
<< Qaaacacacac oo “ 29.3 
—~- Bw «@ t€eeeeeus @moovu xr -—a= Qn. VUTXIIMMMM 
-o « | tt ts a ” teeenen a= << SSeessessse 
Sneed a rmewm t#6teeees > ON&K WwOWwiwww = Aas 
Zo w Or2 Madea v ™vMvA YAAGA404—cuw H-NNOO a ANANANMNMNAMMNMMNMNM 
—6© J0 OF Wee eueueu & y jaa >a>>>>> 1 1 1 eos @ > ee eeees 
- €Oac & titers akan a Oe a Ladd al oka bak Let ol = ssss 
os ve fOr OOCCOCCCO 33 €4£VQOOvrOOCOCOO VI IEE DID De HH - 
=o aa ME ARAAARAA ae \ <eeeeuuuuunotcssitssnawaa << ‘wWewuaR Eee 
Ee w i 
BS LA2KAKSLLLALAAL UA < Da RSRRSASAKKAAAARARAAS?E ~ORSS 
VE eee eee eccaar ibo< MOVE VOVV VY VOU OV VO OO UU PF EEO rr rt rt rt rt rt rt rt 
a> ddd ddd de ded daca? i ZLOYVMMMMVMHVVHVVVAVHAKVHKVHMHKVKHVOHV Or ESZE ee ZAZZZZZZISZZEZZ 
OM BMOOMOADO MOOD WDD BH VV OOO OONGOOGOGOOOOOOGOQOVSVO|N|V|D|{;°C Ws FD Err rt rt rt re rt et ss on ome 


| 
| 


BASSMAT_INIT ya St 9 $5:45'9 
Psect synopsis 66-SEP-1984 10:29 


! Psect synopsis ! 


¢ weer ewer aero es era} 


PSECT name Allocation PSECT No. Attributes 
‘ ‘ 00000000 ( 0.) 0O¢ QO.) NOPIC USR CON ABS LCL WN 
SABSS 00000000 ( 0.) 1 ¢( 1.) NOPIC USR CON ABS LCL NOSHR 
_BASSCODE 00000916 ( 2326.) ’ Ss #9 PIC USR CON REL LCL SHR 
fwwmom sree aenaos enn nenea meena ¢ 
H Per formance indicators H 
| Phase Page faults CPU Time Elapsed Time 
“Initialization 30 00:00:00.05 00:00:00.55 
/ Command processing 114 00:00:00.57 BR Oe OE -Be 
Pas s 1 374 00:00:07.49 00:00:15.89 
se ES table sort 0 00:00:00. 36 +0 +09 20 
E ass 2 406 —00:00:03.56 — 00:00:08.40 
‘Symbol table output 1 00:00:00.08 00:00:00.09 
| Psect synopsis output 1 00:00:00.02 00:00:00.05 
| Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 928 00:00:12.13 00:00:28.07 


107967 bytes (211 pages) of virtual memory were used to by iter the intermediate code. 

There were 20 pages of symbol table space ol located to hold 228 non-local and 81 local symbols. 
384 source Lines were read in Pass 1, producing 18 object records in Pass 2. 

39 pages of virtual memory were used to define 10 macros. 


ee + 


105 working set Limit was 1800 pages. 


|Macro Library name Macros defined 
-$255$0UA28 : CBASRTL .OBJ JBASRTL .MLB; 1 1 
“$255$DUA28:(SYSLIBISTARLET. MLB;2 5 
TOTALS (all Libraries) 6 


436 GETS were required to define 6 macros. 
There were no errors, warnings or information messages. 


9 v04-00 
728 BASRIL. SRC CBA BASMATINI.MAR;1 


OSHR 5 MORNE —_ ~ eevee BYTE 
RD NOURT NOVEC LONG 
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(5) 


_ MACRO/ENABLE = SUPPRESS ION/DI SABLE=(GLOBAL , TRACEBACK) /L1S=L1S$:BASMATINI/OBJ=0BJ$:BASMATINI MSRC$:BASMATINI/UPDATE=(ENH$:BASMATINI) +L 1 


Byj25 SH-BTi3A-SE ENT CORPORATION 
VVC) VAx/vMS v4.0 AN 


D PROPRIETARY 


T CORPORATION 
PROPRIETARY 


A\(\a, AH-BT13A- SE 
VVEO VAX/VMS V4.0 


